cp/m macro ASSEM 2.0 



#001 



'** Cbios For GP/M Ver. 2.2 *** 



***************************************************************** 



* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL 

* REVS, AND MODELS A & B) . HANDLES DISKETTES WITH SECTOR SIZES 

* OF 128 BYTES SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE 

* DENSITY. THERE ARE CONDITIONAL ASSEMBLIES FOR DISKUS HARD 

* DISK CONTROLLER. 
* 

* WRITTEN BY BOBBY DALE GIFFORD. 

* 12/8/80 
* 

* CUSTOMIZED BY JAY O'BRIEN 

* 1/16/82 

* 

* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, FIRMWARE, 

* AND CP/M: 

E700H 

80H 

80H 

80H 

80H 

80H 

80H 

2C00H 

E400H 

E480H 

E500H 

E580H 

E600H 

E680H 

E700H 

E780H 



* 
* 


TRK SEC 


1 = 


FIRST SECTOR OF COLD BOOT. 


* 





2 = 


COLD BOOT 256. 




* 





3 = 


COLD BOOT 512. 




* 





4 = 


COLD BOOT 1024. 




* 





5 = 


WARM BOOT 256. 




* 





6 = 


WARM BOOT 512. 




* 





7 = 


WARM BOOT 1024. 




* 





8 = 


COLD/ WARM BOOT. 




* 





9 = 


FIRMWARE. 




* 





10 = 


FIRMWARE+80H. 




* 





11 = 


PIRMWARE+100H 




* 





12 = 


FIRMWARE+180H. 




* 





13 = 


FIRMWARE+200H. 




* 





14 = 


FIRMWARE+280H. 




* 





15 = 


FIRMWARE+300H. 




* 





16 = 


FIRMWARE+380H. 




* 





17 = 


CCP. 




* 





10 = 


CCP+80H. 




* 





12 = 


CCP+100H . 




* 





14 = 


CCP+180H. 




* 





m «= 


CCP+200H. 


- - , 


* 





18 » 


CCP+280H. 




- ■- *■ 





'20 •«= 


GCP+300H. 


*. 


* 





22 = 


CCP+380H. 




* 





24 = 


CCP+400H. 




* 





26 = 


CCP+480H . 




: ^ . * 


1 


■s 


REST OF CP/M. 


■• 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



2700H -i-ft<JjDo'^C7(^^ 
2780H * 



* 
* 
* ' 
* 
*' 
* 
* 
* 
*• 

* * 

*************** *********,***********************^** ****** ******#** 



2800H 
2880H 
2900H 
2980H 
2A00H 
2A80H 
2B00H 
2B80H 
2C00H-4FFFH 






TITLE 



•*** Cbios For CP/M Ver. 2.2 ***' 



*****************;fr****^*****^*******^***<**^*****|lr***** ************ 

'* ' ' * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO -mE CP/M * 

* 2.2 CBIOS. * 

* * 

*************** ***********^*^***^***.]4t*,***^*** ************* ******* 







^ 



?--^^ "'t^'' 



.7 'C! 
K- .p 







Ci 



h „ »^, \ ■ i • ft ••' , o-i ./ 




CP/M MACRO ASSEM 2.0 #002 *** Cbios For CP/M Ver. 2.2 *** 



001C = 
0016 = 



REVNUM EQU 28 
CPMREV EQU 22 



yCBIOS REVISION NUMBER 
;CP/M revision NUMBER 



1c**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE * 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. * 

* * 

***************************************************************** 



0000 = 



0001 
0002 

0001 
0000 
0000 



FIRST 



EQU 







0001 = 



MAXHD 


EQU 


1 


MAXFLOP 


EQU 


2 


M26 


EQU 


1 


M20 


EQU 





M10 


EQU 







IF 


M10 OR M20 


S DELAY 


EQU 
ELSE 





SDELAY 


EQU 
ENDIF 


1 



= FLOPPIES ARE A,B,C,D DRIVES AND 

HARD DISK ARE E,F,G,H 

1 = HARD DISKS ARE A,B,C,D DRIVES AND 

FLOPPIES ARE E,F,G,H 
SET TO NUMBER OF HARD DISKS 
SET TO NUMBER OF FLOPPIES 

;SET ONLY ONE OF THESE VARIABLES 



; SOFTWARE HEAD SETTLE DELAY (0 = NO, 1 = YES) 



001A 
0003 
0020 



MREV EQU 
LOGDSK EQU 
HDSPT EQU 



26*M26+20*M20+10*M10 

3*M26+3*M20+2*M10 

32*M26+21*M20+21*M10 



yHARD DISK TYPE 

; LOGICAL DISKS PER DRIVE 

; SECTORS PER TRACK 



***************************************************************** 

-*• ■ - -- -•- - . ,.. . * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0, 1, 3; 3.1,-4, MODEL B. * 

* * 

***************************************************************** 









IF 


MAXFLOP NE 


; INCLUDE DISCUS 


F000 


= 


ORIGIN 


EQU 


0F000H 




' .', 




F400 


= 


DJRAM 


EQU 


ORIGIN+400H 


;DISK 


JOCKEY 


2D 


F400 


=. '■ ■ ,, I 


DJBOOT 


EQU 


DJRAM 


'; DISK 


JOCi^Y 


2D 


F003 


s 


DJCIN 


EQU 


0RIGIN+3H 


;DISK 


JOCKEY 


2D 


F006 


= 


DJCOUT 


EQU 


ORIGIN+6H 


jDISK 


JOCKEY 


2D 


F409 


= 


DJHOME 


EQU 


DJRAM+9H 


;DISK 


JOCKEY 


2D 


F40C 


= 


PJTRK 


EQU 


DJRAM+0CH 


•;DISK 


JOCKEY 


2D 


F40F 


= 


DJSEC 


EQU 


DJRAM+0FH 


;DISK 


JOCKEY 


2D 


F412 


= ■ 


DJDMA 


EQU 


DJRAM+012H 


;DISK 


JOCKEY 


2D 


F415 


= 


D J READ 


EQU 


DJRAM+1 5H 


;DISK 


JOCKEY 


2D 


F418 


ss 


DJWRITE 


EQU 


DJRAM+18H 


;DISK 


JOCKEY 


2D 


F41B 


= 


DJSEL 


EQU 


DJRAM+1 BH 


;DISK 


JOCKEY 


2D 


F021 


= 


DJTSTAT 


EQU 


0RIGIN+21H 


;DISK 


JOCKEY 


2D 



RAM ADDRESS 
INITIALIZATION 
CHARACTER INPUT ROUTINE 
CHARACTER OUTPUT ROUTINE 
TRACK ZERO SEEK 
TRACK SEEK ROUTINE 
SET SECTOR ROUTINE 
SET DMA' ADDRESS 
READ ROUTINE 
WRITE ROUTINE 
SELECT DRIVE ROUTINE 
TERMINAL STATUS ROUTINE 



CP/M macro ASSEM 2.0 #003 *** Chios For CP/M Ver. 2.2 *** 



F427 = 
F42A = 
F42D = 
F430 = 
0008 = 



DJSTAT EQU 
DJERR EQU 
DJDEN EQU 
DJSIDE EQU 
DBLSID EQU 

ENDIF 



DJRAM+27H 
DJRAM+2AH 
DJRAM+2DH 
DJRAM+30H 
8 



;DISK JOCKEY 2D STATUS ROUTINE 
;DISK JOCKEY 2D ERROR, FLASH LED 
;DISK JOCKEY 2D SET DENSITY ROUTINE 
jDISK JOCKEY 2D SET SIDE ROUTINE 
;SIDE BIT FROM CONTROLLER 



* * 

* 
* 

****** ***1c***ie****1i***1t***1c1t*1c1c***1i1t1e*!**1e1e*********1c******1i1c1c**** 



* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. 

* 



0050 
0050 
0050 
0053 
0052 
0051 
0051 
0002 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0004 
00FB 
0004 
0200 
000F 
000B 
0005 
0007 
00F7 
00FC 
0000 
0008 
0001 
0005 





IF 


MAXHD NE 


HDORG 


EQU 


50H 


HDSTAT 


EQU 


HDORG 


HDCNTL 


EQU 


HDORG 


HDDATA 


EQU 


HDORG+3 


HDFUNC 


EQU 


HDORG+2 


HDCMND 


EQU 


HDORG+1 


HDRESLT 


EQU 


HDORG+1 


RETRY 


EQU 


2 


TKZERO 


EQU 


1 


OPDONE 


EQU 


2 


COMPLT 


EQU 


4 


TMOUT 


EQU 


8 


WFAULT 


EQU 


10H 


DRVRDY 


EQU 


20H 


INDEX 


EQU 


40H 


PSTEP 


EQU 


4 


NSTEP 


EQU 


0FBH 


HDRLEN 


EQU 


4 


SECLEN 


EQU 


512 


WENABL 


EQU 


0FH 


WRESET 


EQU 


0BH 


SCENBL 


EQU 


5 


DSKCLK 


EQU 


7 


MDIR 


EQU 


0F7H 


NULL 


EQU 


0FCH 


IDBUFF 


EQU 





ISBUFF 


EQU 


8 


RSECT 


EQU 


1 


WSECT 


EQU 
ENDIF 


5 



WANT HARD DISK INCLUDED ? 

HARD DISK CONTROLLER ORIGIN 

HARD DISK STATUS 

HARD DISK CONTROL 

HARD DISK DATA 

HARD DISK FUNCTION 

HARD DISK COMMAND 

HARD DISK RESULT 

RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 



***************************************************************** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OP THE CP/M SYSTEM *' 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. • - * 

* * 

* * * *.* **************ie ********************************* ************ 



003C 
A000 
C700 



MSIZE 


EQU 


BIAS 


EQU 


CCP 


EQU 



60 ; MEMORY SIZE OF TARGET CP/M 

(MSIZE-20)*1024 JMEMORY OFFSET FROM 20K SYSTEM 
2700H+BIAS ; CONSOLE COMMAND PROCESSOR 



cp/m macro ASSEM 2.0 



#004 



*** Cbios For CP/m Ver. 2.2 *** 



CF00 = 
DD00 = 
4A00 = 

0004 = 
0080 = 
0100 = 
00C0 = 
0003 = 
0000 = 

0005 = 



BDOS EQU 
BIOS EQU 
OFFSETC EQU 
CDISK EQU 
BUFF EQU 
TPA EQU 
INTIOBY EQU 
lOBYTE EQU 
WBOT EQU 
ENTRY EQU 



CCP+800H 

CCP+1600H 

2700H-BIOS 

4 

80H 

100H 

192 

3 



5 



;BDOS ADDRESS 

; CBIOS ADDRESS 

; OFFSET FOR SYSGEN 

.•ADDRESS OF LAST LOGGED DISK 

; DEFAULT BUFFER ADDRESS 

y TRANSIENT MEMORY 

; INITIAL lOBYTE 

;IOBYTE LOCATION 

;WARM BOOT JUMP ADDRESS 

;BDOS ENTRY JUMP ADDRESS 



it**************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 
***************************************************************** 



000A = 
000D = 
000A = 
001A = 
0003 = 
0006 = 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

CLEAR EQU lAH 

AETX EQU 3 

AACK EQU 6 



;MAX RETRIES ON DISK l/O BEFORE ERROR 

;A CARRIAGE RETURN 

7 A LINE FEED 

y CLEAR SCREEN FOR VIO-X 

;ETX CHARACTER 

;ACK CHARACTER 



***************************************************1c******1,1c**it** 

* * 

* 



THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE 

* THE SAME. 
* 

************************************* *************************1e** 



DD00 



ORG 



BIOS 



r CBIOS STARTING ADDRESS 



DD00 


C3DAE5 




JMP 


CBOOT 




DD03 


C3BCDE 


WBOOTE 


JMP 


WBOOT 




DD06 


C336DD 




JMP 


CONST 




DD09 


C342DD 




JMP 


CONIN 




DD0C 


C357DD 


COUT 


JMP 


CONOUT 




DD0F 


C377DD 




JMP 


LIST 




DD12 


C36CDD 




JMP 


PUNCH 




DD15 


C362DD 




JMP 


READER 




DDIB 


C351DF 




JMP 


HOME 




DDIB 


C393DF 




JMP 


SETDRV 




DDIE 


C353DF 




JMP 


SETTRK 




DD21 


C345DF 




JMP 


SETSEC 




DD24 


C34BDF 




JMP 


SETDMA 




DD27 


C399E0 




JMP 


READ 




DD2A 


C392E0 




JMP 


WRITE 




DD2D 


C382DD 




JMP 


LISTST 




DD30 


C358DF 




JMP 


SECTRAN 










IF 


MAXFLOP NE 





DD33 


C31BF4 


DJDRV 


JMP 
ELSE 


DJSEL 





COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR' TRANSLATION 



;HOOK FOR SINGLE.COM PROGRAM 



CP/M macro ASSEM 2.0 #005 *** Cbios For CP/M Ver. 2.2 *** 



JMP DONOP 
ENDIF 

***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. lOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* lOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT l/O CONFIGURATION, JUST * 

* CHANGE THE ENTRIES IN THE TABLES. * 

* * 

***************************************************************** 



F003 = 
F006 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



.•INPUT FROM THE DISK JOCKEY 2D 
; OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM lOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 

**********************************************#****************** 



DD36 21B0DD 
DD39 C34BDD 



CONST LXI 
JMP 



H, CSTBLE 
CONINl 



.•BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 

* * 

***************************************************************** 



DD3C 21B8DD 
DD3F C365DD 



CSREADR LXI 
JMP 



H,CSRTBLE 
READERA 



.•BEGINNING OF READER STATUS TABLE 



***************************************************************** 

* * 

* CONINi TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* lOBYTE. * 

* * 

***************************************************************** 



DD42 CD0CE1 
DD45 2188DD 



CONIN 



CALL 
LXI 



FLUSH 
H, C;iTBLE 



7 FLUSH THE DISK BUFFER 

7 BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONINI WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF lOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 



CP/m macro ASSEM 2.0 #006 *** Chios For CP/M Ver. 2.2 *** 

* 



DD48 3A0300 
DD4B 17 



CONINl LDA 
RAL 



lOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 

* 



; STRIP OFF UNWANTED BITS 
yFORM OFFSET 

;ADD OFFSET 

jPICK UP HIGH BYTE 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE 1 

leie*************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF lOBYTE. * 

* * 

t**************************************************************** 



DD4C E606 SELDEV ANI 


6H 


DD4E 1600 


MVI 


D,0 


DD50 5F 


MOV 


E,A 


DD51 19 


DAD 


D 


DD52 7E 


MOV 


A,M 


DD53 23 


I NX 


H 


DD54 66 


MOV 


H,M 


DD55 6F 


MOV 


L,A 


DD56 E9 


PCHL 





DD57 C5 
DD58 CD0CE1 
DD5B CI 
DD5C 2190DD 
DD5F C348DD 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H,COTBLE 

JMP CONINl 



7 SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

? BEGINNING OF THE CHARACTER OUT TABLE 

;DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF lOBYTE. * 

* * 

***************************************************************** 



DD62 21A8DD 



READER LXI 



H,RTBLE 



; BEGINNING OF READER INPUT TABLE 



* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF lOBYTE, USED 

* BY CSREADER. 
* 



DD65 3A0300 



READERA LDA 



lOBYTE 



* ENTRY AT READERl WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 

* 



DD68 IF 
DD69 C34CDD 



READRl RAR 
JMP 



SELDEV 



CP/M macro ASSEM 2.0 #007 *** Cbios For CP/M Ver. 2.2 *** 



****************1c***-k**1e*********1c***1fk*****ie*****************1t1c* 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF lOBYTE. * 

* * 



DD6C 21A0DD 
DD6F 3A0300 



PUNCH 



LXI 
LDA 



H.PTBLE 
lOBYTE 



; BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCHl ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 



DD72 IF 
DD73 IF 
DD74 C368DD 



PNCHl RAR 
RAR 
JMP 



READRl 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF lOBYTE * 

* * 

***************************************************************** 



DD77 2198DD 
DD7A 3A0300 
DD7D IF 
DD7E IF 
DD7F C372DD 



LIST LXI 

LISTl LDA 

RAR 

RAR 

JMP 



H,LTBLE 
lOBYTE 



PNCHl 



.•BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 



DD82 21C0DD 
DD85 C37ADD 



LISTST LXI H,LSTBLE 
JMP LISTl 



; BEGINNING OF THE LIST DEVICE STATUS 



***************************************************************** 

* * 

* IF CUSTOMIZING l/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL l/O * 

* DEVICES ARE DECODED OUT OF lOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 

***************************************************************** 



* .CONSOLE I NPUT TABLE 

* 



DD88 F3DD 



CITBLE DW 



CiWCl' 



;INPUTFRC»! USER CONSOLE 1 (CURRENTLY 
; SWBD PARALLEL PORT 4) 



CP/M macro ASSEM 2.0 #008 
DD8A 08DE DW 

DD8C 62DD DW 

DD8E 03F0 DW 



*** Cbios For CP/M Ver. 2.2 *** 

CICRT 

READER 

CITTY 



INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 







* 
* 


CONSOLE OUTPUT TABLE 


DD90 


3BDE 


COTBLE 


DW 


COCRT ; 


DD92 


33 DE 






DW 


COCRT 


DD94 


77DD 






DW 


LIST 


DD96 


06F0 






DW 


COTTY ; 



OUTPUT TO CRT 
OUTPUT TO CRT 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6&7 OF lOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



* LIST DEVICE TABLE 

* 



DD98 06F0 
DD9A 46DE 
DD9C C9DD 
DD9E D4DD 



LTBLE 



DW 


COTTY 


DW 


COPTR 


DW 


COLPT 


DW 


COULl 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER cP^C / 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT I) 



if-^l 







* 

* 


PUNCH 


DEVICE 


TABLE 


DDA0 


06F0 


PTBLE 


DW 


COTTY 


DDA2 


46DE 






DW 


COPTR 


DDA4 


C9DD 






DW 


COUPl 


DDA6 


C9DD 






DW 


COUP 2 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



* READER DEVICE INPUT TABLE 

* 



DDA8 03F0 
DDAA 08DE 
DDAC 08DE 
DDAE 08DE 



RTBLE 



DW 


CITTY 


DW 


CIPTR 


DW 


CIURl 


DW 


CIUR2 



INPUT FROM TTY (CURRENTLY ASSIGNED 
BY INTIOBY, INPUT FROM 2D) 

INPUT FROM PAPER TAPE READER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

INPUT FROM USER READER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

INPUT FROM USER READER 2 (CURRENTLY 



CP/m macro ASSEM 2.0 #009 



*** Cbios For CP/M Ver. 2.2 *** 

; SWITCHBOARD SERIAL PORT 1) 



* CONSOLE STATUS TABLE 
* 



DDB0 


FFDD 


CSTBLE 


DW 


CSUCl 


DDB2 


ICDE 




DW 


CSCRT 


DDB4 


3CDD 




DW 


CSREADR 


DDB6 


14DE 




DW 


CSTTY 



* STATUS FROM READER DEVICE 
* 



STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



DDB8 


14DE 


CSRTBLE 


DW 


CSTTY 


DDBA 


ICDE 




DW 


CSPTR 


DDBC 


ICDE 




DW 


CSURl 


DDBE 


ICDE 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 

* 



DDC0 


2ADE 


LSTBLE 


DW 


READY 


DDC2 


2ADE 




DW 


READY 


DDC4 


25DE 




DW 


LSLPT 


DDC6 


25DE 




DW 


LSLPT 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



DDC8 00 



***************************************************************** 

* * 

* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 

* * 

***************************************************************** 

NOP 
***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



DDC9 


s 


COPTP 


EQU 


$ 


DDC9 


= 


COUPl 


EQU 


$ 


DDC9 


=r'. 


C0UP2 


EQU 


$ 


DDC9 


DB02 


COLPT 


IN 


2 


DDCB 


E680 




ANI 


80H 


DDCD 


CAC9DD 




JZ 


COLPT 


DDD0 


79 




MOV 


A,C 



; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 

y OUTPUT THE CHARACTER 
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DDDl D301 
DDD3 C9 



OUT 
RET 



It**************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 

***************************************************************** 



DDD4 


CDC9DD 


COULl 


CALL 


COLPT 


DDD7 


3AF2DD 




LDA 


COUNT 


DDDA 


3D 




DCR 


A 


DDDB 


32F2DD 




STA 


COUNT 


DDDE 


C0 




RNZ 




DDDF 


3E4E 




MVI 


A, 78 


DDEl 


32F2DD 




STA 


COUNT 


DDE4 


0E03 




MVI 


CAETX 


DDE6 


CDC9DD 




CALL 


COLPT 


DDE9 


CD08DE 


PWAIT 


CALL 


CIPTR 


DDEC 


FE06 




CPI 


AACK 


DDEE 


C2E9DD 




JNZ 


PWAIT 


DDFl 


C9 




RET 




DDF2 


32 


COUNT 


DB 


50 



,- OUTPUT THE CHARACTER 



**************************************************************** 

* * 



* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD 

* PARALLEL PORT A, WITH STATUS ON ATTENTION PORT BIT 0. 



* * 

**************************************************************** 



DDF3 DB03 
DDF5 E601 
DDF7 CAF3DD 
DDFA DB04 
DDFC E67F 
DDFE C9 

DDFF DB03 
DE01 E601 
DE03 EE01 
DE05 C317DE 



CIUCl IN 3 ;GET ATTENTION BYTE 

;GET BIT ONLY 
;WAIT FOR CHARACTER 
;GET CHARACTER 
y STRIP OFF THE PARITY 



IN 


3 


ANI 


1 


JZ 


CIUCl 


IN 


4 


ANI 


7FH 


RET 




IN 


3 


ANI 


1 


XRI 


1 


JMP 


STAT 



CSUCl IN 3 ?GET ATTENTION BYTE 

;GET BIT ONLY 
; CHANGE POLARITY 
; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



DE08 = 


CICRT 


EQU 


$ 


DE08 = 


CIURl 


EQU 


? 


DE08 = 


CIUR2 


EQU 


$ 


DE08 DB02 


CIPTR 


IN 


2 



; INPUT FROM CRT 

; INPUT FROM USER READER 1 

; INPUT FROM USER READER 2 

; INPUT FROM PAPER TAPE READER, GET STATUS 
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;WAIT FOR CHARACTER 



DE0A E640 
DE0C CA08DE 
DE0F DB01 
DEll E67F 
DE13 C9 



JZ 


CIPTR 


IN 


1 


ANI 


7FH 


RET 





; STRIP OFF THE PARITY 



1c**************************************************************** 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 

***************************************************************** 



DE14 CD21F0 
DE17 3E00 
DE19 C0 
DEIA 3D 
DEIB C9 



CSTTY CALL DJTSTAT 
STAT MVI A,0 

RNZ 

DCR A 

RET 



; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

; NOTHING FOUND 

; RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 

; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE READER 

; STATUS FROM CRT, GET STATUS 

r STRIP OF DATA READY BIT 

;MAKE CORRECT POLARITY 

; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 

***************************************************************** 



DEIC 


= 


CSURl 


EQU 


$ 


DEIC 


= 


CSUR2 


EQU 


$ 


DEIC 


= 


CSPTR 


EQU 


$ 


DEIC 


DB02 


CSCRT 


IN 


2 


DEIE 


E640 




ANI 


40H 


DE20 


EE40 




XRI 


40H 


DE22 


C317DE 




JMP 


STAT 



DE25 


DB02 


LSLPT 


IN 


2 


DE27 


E680 




ANI 


80H 


DE29 


C8 




RZ 




DE2A 


3EFF 


READY 


MVI 


A,0 


DE2C 


C9 




RET 





?ALL OTHER DEVICES WAIT 



***************************************************************** 

* * 

* THIS INITIALLIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO * 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS * 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. * 

* THIS 1 IS ADDED TO lOBYTE TO CHANGE THE CONSOLE INPUT FROM * 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL * 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. * 

* * 

************** *jHr * * * * ***** * * ********|l( ******* ********************** 
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*** Cbios For CP/M Ver. 2.2 *** 



DE2D 0E1A 
DE2F DB07 
DE31 E601 
DE33 C6C0 
DE35 320300 
DE38 C30CDD 





DE58 


218000 




DE5B 


CD4BDF 




DE5E 


3EC3 




DE60 


32/3000 




DE63 


320500 




DE66 


2103DD 




DE69 


220100 




DE6C 


2106CF 




DE6F 


220600 




DE72 


AF 




DE73 


3205E5 















TINIT MVI 



MVI 


C, CLEAR 


IN r 


7 


ANI 


1 


ADI 


INT I OB Y 


STA 


lOBYTE 


JMP 


GOUT 



* VIO-X VIDEO DRIVER 



DE3B DB09 


COCRT 


IN 


9 


DE3D E601 




ANI 


1 


DE3F CA3BDE 




JZ 


COCRT 


DE42 79 




MOV 


A,C 


DE43 D308 




OUT, 


8 


DE45 C9 




RET 





; INITIALIZE THE TERMINAL ROUTINE 
;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
; INITIALIZE lOBYTE 



***-k***1t1t********************1c*********************************1t* 

* * 

* 
* 

****1e**1e**********1i*********************************ie***1i******** 

;READ STATUS PORT 
.•MASK TXRDY BIT 
;WAIT FOR READY 
;GET CHAR 
; OUTPUT IT 
7 ALL DONE 

****************************ie1c************ie*************1c******** 

* * 

* ROUTINE FOR OKIDATA PRINTER * 

* PRINTER IS ON PORT WITH PRINTER READY ON PORT 5 BIT 1 * 

* , * 

1c**************************************************************** 



.•INPUT FROM PORT 2 
yWAIT UNTIL OK TO SEND 

; BUFFER FULL? 

.-WAIT UNTIL PRINTER READY 
? OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H) . * 

* * 

***************************************************************** 



DE46 DB02 


COPTR 


IN 


2 


DE48 E608 




ANI 


8 


DE4A CA46DE 




JZ 


COPTR 


DE4D DB05 


COPTRl 


IN 


5 


DE4F E60I 




ANI 


1 


DE51 CA4DDE 




JZ 


COPTRl 


DE54 79 




MOV 


A,C 


DE55 D300 




OUT 





DE57 C9 




RET 





GOCPM 



LXI 


H, BUFF 


CALL 


SETDMA 


MVI 


A, (JMP) 


STA 


WBOT 


STA 


ENTRY 


LXI 


H,WBOOTE 


SHLD 


WBOT+1 


LXI 


H,BDOS+6 


SHLD 


ENTRY+1 


XRA 


■., A,. • 


STA 


BUFSEC 



;SET UP INITIAL DMA ADDRESS 

; INITIALIZE JUMP TO WARM BOOT 

y INITIALIZE JUMP TO BDOS 
.•ADDRESS IN WARM BOOT JUMP 

.•ADDRESS IN BDOS JUMP 

;A <- 

;DISK JOCKEY BUFFER EMPTY 
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DE76 
DE79 
DE7C 
DE7D 
DE80 
DE81 
DE84 
DE86 
DE89 
PE8C 
DE8E 
DE91 
DE94 
DE95 
DE98 
DE9B 
DE9C 
DE9F 
DEA2 
DEA3 
DEA4 
DEA7 



320DE1 

3A0400 

4F 

3AAADE 

A7 

llACDE 

3E0F 

CA8EDE 

IIBBDE 

3E01 

2108C7 

3207C7 

47 

CDD4E1 

3AAADE 

A7 

3AABDE 

CAA3DE 

IF 

IF 

DA00C7 

C303C7 



DEAA 00 



STA 

LDA 

MOV 

LDA 

ANA 

LXI 

MVI 

JZ 

LXI 

MVI 

CLDCMND LXI 
STA 
MOV 
CALL 
LDA 
ANA 
LDA 
JZ 
RAR 

CLDBOT RAR 
JC 
JMP 

CWPLG DB 



;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 



BUFWRTN 

CDISK 

C,A 

CWFLG 

A 

D,COLDBEG ; BEGINNING OF INITIAL COMMAND 

A,C0LDEND-C0LDBEG+1 ; LENGTH OF COMMAND 

CLDCMND 

D,WARMBEG 

A, WARMEND-WARMBEG+1 

H,CCP+8 ;COMMAND BUFFER 

CCP+7 

B,A 

MOVLOP 

CWFLG 

A 

AUTOFLG 

CLDBOT 



CCP 
CCP+3 





; ENTER CP/M 

; COLD/WARM BOOT FLAG 



***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/Mi * 

* * 

* 
* 

* 
***************************************************************** 



* = NEVER GIVE COMMAND. 

* I = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 

* 



DEAB 01 



AUTOFLG DB 



;AUTO C0MM7VND FEATURE 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE; * 

* * 

* COLDBEG DB 'MBASIC MYPROG' * 

* COLDEND DB * 

* * 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. * 

***************************************************************** 



DEAC 5355424D49COLDBEG DB 
DEBA 00 COLDEND DB 



'SUBMIT STARTUP'; COLD BOOT COMMAND 
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DEBB 00 



WARMBEG DB 
WARMEND DB 



*** Cbios For CP/M Ver. 2.2 *** 

;WARM BOOT COMMAND GOES HERE 



**1c*1c*********1c*********1c**1c******1c*********ie*1c**************1c*** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 



DEBC 
DEBF 


310001 
3E01 


WBOOT 


LXI 
MVI 


SP, TPA 
A,l 




7 SET UP STACK POINTER 


DEC0 


= 


WFLG 


EQU 


$-1 




;TEST IF BEGINNING OR 


DECl 


A7 




ANA 


A 




ENDING A WARM BOOT 


DEC2 


3E01 




MVI 


A,l 






DEC4 


32C0DE 




STA 


WFLG 






DEC 7 


32AADE 




STA 


CWFLG 




;SET COLD/WARM BOOT FLAG 


DECA 


CA58DE 




JZ 


GOCPM 






DECD 


AF 




XRA 


A 






DECE 


32C0DE 




STA 


WFLG 






DEDl 


4F 




MOV 


C,A 












IF 


(MAXHD NE 0) 


AND FIRST ; SUPPLY WARM BOOT FROM HARD DISK ? 








LXI 


H,CCP-200H 




; INITIAL DMA ADDRESS 








PUSH 


H 












STA 


HEAD 












MVI 


A, 4 












PUSH 


PSW 




rSAVE FIRST SECTOR 








CAT.T. 


HDDRV 




; SELECT DRIVE A 








MVI. 


C,0 












CALL 


HDTRK 




;HOME THE DRIVE 






WARMLOD 


POP 

POP 

INR 

STA 

CPI 

JZ 

INR 

INR 

SHLD 

PUSH 

PUSH 


PSW 

H 

A 

HDSECTR 

16 

WBOOT 

H 

H 

HDADD 

H 

PSW 




7 RESTORE SECTOR 

7 RESTORE DMA ADDRESS 

7 PAST BDOS ? 

7 YES, ALT. DONE 

7 UPDATE DMA ADDRESS 






WARMRD 


LXI 


B, RETRIES*! 00H+0 ;RETRY COUNTER 






WRMREAD 


PUSH 

CALL 

POP 

JNC 

DCR 

JNZ 

HLT 

ENDIF 


B 

HDREAD 

B 

WARMLOD 

B 

WRMREAD 




7 SAVE THE RETRY COUNT 
7 READ THE SECTOR 

7 TEST FOR ERROR 

7 UPDATE THE ERROR COUNT 

7 KEEP TRYING IF NOT TO MANY ERRORS 

7 CAN'T WARM BOOT 








IF 


(MAXFLOP NE 


0) 


AND NOT FIRST 7 SUPPLY WARM BOOT FROM 2D ? 


DED2 


CD33DD 




CALL 


DJDRV 




7 SELECT DRIVE A 


DED5 


0E00 




MVI 


C,0 




7 SELECT SINGLE DENSITY 
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*** Cbios For CP/M Ver. 2.2 *** 



DED7 


CD2DF4 


CAT.T. 


DJDEN 


DEDA 


0E00 


MVI 


C,0 


DEDC 


CD30F4 


CALL 


DJSIDE 


DEDF 


3E0F 


MVI 


A, 15 


DEEl 


32FFDE 


STA 


NEWSEC 


DEE4 


2100C6 


LXI 


H,CCP-100H 


DEE7 


221EDF 


SHLD 


NEWEMA 


DEEA 


CDFEDE 


CALL 


WARMLOD 


DEED 


0100CC 


LXI 


B,CCP+500H 


DEF0 


CD12F4 


CALL 


DJDMA 


DEF3 


0E08 


MVI 


C,8 


DEF5 


CD0FF4 


CALL 


DJSEC 


DEF8 


CD32DF 


CALL 


WARMRD 


DEFB 


C303CC 


JMP 


CCP+503H 


DEFE 


3E0F 


WARMLOD MVI 


A, 15 


DEFF 


s 


NEWSEC EQU 


$-1 


DF00 


3C 


INR 


A 


DF01 


3C 


INR 


A 


DF02 


FEIB 


CPI 


27 


DF04 


DA16DF 


JC 


NOWRAP 


DF07 


D609 


SUI 


9 


DF09 


FE13 


CPI 


19 


DF0B 


C8 


RZ 




DF0C 


2A1EDF 


LHLD 


NEWDMA 


DF0F 


1180FB 


LXI 


D,-480H 


DF12 


19 


DAD 


D 


DF13 


221EDF 


SHLD 


NEWDMA 


DF16 


32FFDE 


NOWRAP STA 


NEWSEC 


DF19 


4F 


MOV 


C,A 


DFIA 


CD0FF4 


CALL 


DJSEC 


DFID 


2100C6 


LXI 


H,CCP-100H 


DFIE 


= 


NEWDMA EQU 


$-2 


DF20 


110001 


LXI 


D, 100H 


DF23 


19 


DAD 


D 


DF24 


221EDF 


SHLD 


NEWDMA 


DF27 


44 


MOV 


B,H 


DF28 


4D 


MOV 


C,L 


DF29 


CD12F4 


CALL 


DJDMA 


DF2C 


CD32DF 


CALL 


WARMRD 


DF2F 


C3FEDE 


JMP 


WARMLOD 


DF32 


01000A 


WARMRD LXI 


B, RETRIES* 


DF35 


C5 


WRMREAD PUSH 


B 


DF36 


CD0CF4 


CALL 


DJTRK 


DF39 


CD15F4 


CALL 


DJREAD 


DF3C 


CI 


POP 


B 


DF3D 


D0 


RNC 




DF3E 


05 


DOR 


B 


DF3F 


C235DF 


JNZ 


WRMREAD 


DF42 


C32AF4 


JMP 
ENDIF 


DJERR 



.•SELECT SIDE 

; INITIALIZE THE SECTOR TO READ 

yAND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 

; UPDATE THE PREVIOUS SECTOR 

rWAS IT THE LAST ? 

;YES 



;SAVE THE NEW SECTOR TO READ 

;GET THE PREVIOUS DMA ADDRESS 
.•UPDATE THE DMA ADDRESS 
.•SAVE THE DMA ADDRESS 

;SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

.•CONTINUE IF SUCCESSFUL 

.•KEEP TRYING 



***************************************************************** 

* * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 
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* ACTUAL READ OR WRITE IS ATTEMPTED. 
* 

***************************************************************** 



* 
* 



DF45 


60 


SETSEC 


MOV 


H,B 


DF45 


69 




MOV 


L,C 


DF47 


22FDE4 




SHLD 


CPMSEC 


DF4A 


C9 


DONOP 


RET 





********* It******************* ************************************ 

* * 

* 
* 

*********************** ********************* *i,**ic*******ie*******it 



* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. 

* 



DF4B 


60 


SETDMA 


MOV 


H,B 


DF4C 


69 




MOV 


L,C 


DF4D 


22EDE0 




SHLD 


CPMDMA 


DF50 


C9 




RET 





7HL <- BC 

;CP/M DMA ADDRESS 



***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 
***************************************************************** 



DF51 0E00 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



DF53 


79 


SETTRK 


MOV 


A,C 


DF54 


3200E5 




STA 


CPMTRK 


DF57 


C9 




RET 


■■ 



?A <- TRACK # 
;CP/M TRACK # 



**************'******************* *****************************f,** 

* * 

f SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

***************************************************************** 



DF58 3AFFE4 



DF5B FE02 
DF5D D28FDF 



IF 


(MAXHD NE 0) 


SECTRAN LDA 


CPMDRV 


IF 


FIRST 


CPI 


M7«HD*L0GDSK 


JC 


TRANHD 


ELSE 




CPI 


MAXFLOP 


JNC 


TRANHD 


ENDIF 





(MAXHD NE 0) AND (MAXFLOP NE 0) yBOTH TYPES ? 

•JGET THE DRIVE NUMBER 



;OVER THE # OF HARD DISKS ? 
yOVER THE # OF FLOPPIES ? 
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ENDIF 
IF 







SECTRAN 


EQU 
ENDIF 

IF 


$ 

MAXFLOP NE 


DF60 


03 


TRANFP 


I NX 


B 


DF61 


D5 




PUSH 


D 


DF62 


C5 




PUSH 


B 


DF63 


CD71E0 




CALL 


GETDPB 


DF66 


7E 




MOV 


A,M 


DF67 


B7 




ORA 


A 


DF68 


IF 




RAR 




DF69 


91 




SUB 


C 


DF6A 


F5 




PUSH 


PSW 


DF6B 


FA77DF 




JM 


SIDETWO 


DF6E 


Fl 


SIDEA 


POP 


PSW 


DF6F 


CI 




POP 


B 


DF70 


Dl 




POP 


D 


DF71 


EB 


SIDEONE 


XCHG 




DF72 


09 




DAD 


B 


DF73 


6E 




MOV 


L,M 


DF74 


2600 




MVI 


H,0 


DF76 


C9 




RET 




DF77 


010F00 


SIDETWO 


LXI 


B,15 


DF7A 


09 




DAD 


B 


DF7B 


7E 




MOV 


A,M 


DF7C 


E608 




ANI 


8 


DF7E 


CA6EDF 




JZ 


SIDEA 


DP81 


Fl 




POP 


PSW 


DF82 


CI 




POP 


B 


DF83 


2F 




CMA 




DF84 


3C 




INR 


A 


DF85 


4F 




MOV 


C,A 


DF86 


Dl 




POP 


D 


DF87 


CD71DF 




CALL 


SIDEONE 


DF8A 


3E80 




MVI 


A,80H 


DF8C 


B4 




ORA 


H 


DF8D 


67 




MOV 


H,A 


DF8E 


C9 




RET 
ENDIF 

IF 


MAXHD NE 


DF8F 


60 


TRANHD 


MOV 


H,B 


DF90 


69 




MW 


L,C 


DF91 


23 




INX 


H 


DF92 


C9- ~ 




RET 
ENDIF 





*** Cbios For CP/M Ver. 2.2 *** 



(MAXHD EQ 0) OR (MAXFLOP EQ 0) ;JUST ONE TYPE ? 



yFLOPPY TRANSLATION 

;SAVE TABLE ADDRESS 

ySAVE SECTOR # 

;GET DPB ADDRESS INTO HL 

;GET # OF CP/M SECTORS/TRACK 

; CLEAR GARY 

.•DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

? DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 

•TEST FOR DOUBLE SIDED 

; MEDIA IS ONLY SINGLE SIDED 

7 RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 



rSIDE TWO BIT 

AND SECTOR 



;HARD DISK TRANSLATION ROUTINE 



***************************************************************** 

* * 

* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE * 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A * 
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'** Cbios For CP/M Ver. 2.2 *** 



* 

* 
* 
* 
* 



PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE * 

DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR * 

DIFFERENT SECTOR SIZES: * 

1) 128 BYTES SINGLE DENSITY. * 

2) 2 56 BYTES DOUBLE DENSITY. * 

3) 512 BYTES DOUBLE DENSITY. * 

4) 1024 BYTES DOUBLE DENSITY. * 

1c**************************************************************** 



DF93 79 
DF94 32FFE4 
DF97 FE05 
DF99 D262E0 
DF9C 7B 
DF9D E601 
DF9F C249E0 



DFA2 3AFFE4 



SETDRV MOV A,C ;SAVE THE DRIVE # 

STA CPMDRV 

CPI MAXFLOP+(MAXHD*LOGDSK) ; CHECK FOR A VALID DRIVE # 

JNC ZRET ; ILLEGAL DRIVE # 

MOV A,E ;TEST IF DRIVE EVER LOGGED IN BEFORE 

ANI 1 

JNZ SETDRVl ;BIT OF E = -> NEVER SELECTED BEFORE 

IF (MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 

LDA CPMDRV ;GET THE DRIVE NUMBER 



DFA5 FE02 
DFA7 D2FFDF 



IF 

CPI 

JC 

SUI 

ELSE 

CPI 

JNC 

ENDIF 

ENDIF 



FIRST 

MAXHD*LOGDSK 
DRVHD 
MAXHD*LOGDSK 

MAXFLOP 
SUBFP 



;OVER THE # OF HARD DISKS ? 



;OVER THE # OF FLOPPIES ? 



DFAA 
DFAD 
DFB0 
DFB2 
DFB5 
DFB8 
DFBB 



210100 

2201E5 

3E01 

3200E5 

CD9EE1 

DA62E0 

CD27F4 



IF 

MOV 

MVI 

FLOPFLG EQU 
ANA 
JNZ 
MVI 
LXI 
MVI 

CLOPP CMP 
JNZ 
DCR 
JNZ 
CALL 
MVI 
STA 
ENDIF 
IF 

FLOPOK LXI 
SHLD 
1 MVI 
STA 
CALL 
JC 
CALL 



(MAXFLOP NE 0) AND FIRST 



C,A 
A,0 

$-1 

A 

FLOPOK 

B,17 

H,DJBOOT 

A, (JMP) 

M 

ZRET 

B 

CLOPP 

DJBOOT 

A,l 

FLOPFLG 

MAXFLOP NE 

H,l 

TRUESEC 

A> 1::„ : 

CPMTRK 

FILL 

ZRET 

DJSTAT 



;SAVE DRIVE # 

;HAVE THE FLOPPIES BEEN ACCESSED YET ? 



;FLOPPIES HAVN'T BEEN ACCESSED 

; CHECK IF 2D CONTROLLER IS INSTALLED 



; INITIALIZE THE CONTROLLER 
ySAVE 2D INITIALIZED FLAG 



.•SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 

;TEST FOR ERROR RETURN 

yGET STATUS ON CURRENT DRIVE 
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DFBE 


E60C 


ANI 


0CH 


DFC0 


F5 


PUSH 


PSW 


DFCl 


IF 


RAR 




DFC2 


218AE0 


LXI 


H,XLTS 


DFC5 


5F 


MOV 


E,A 


DFC6 


1600 


MVI 


D,0 


DFC8 


19 


DAD 


D 


DFC9 


E5 


PUSH 


H 


DFCA 


CD71E0 


CALL 


GETDPB 


DFCD 


EB 


XCHG 




DFCE 


Dl 


POP 


D 


DFCF 


0602 


MVI 


B,2 


DFDl 


CDD4E1 


CALL 


MOVLOP 


DFD4 


110800 


LXI 


D,8 


DFD7 


19 


DAD 


D 


DFD8 


E5 


PUSH 


H 


DFD9 


2A07F0 


LHLD 


ORIGIN+7 


DFDC 


23 


I NX 


H 


DPDD 


7E 


MOV 


A,M 


DFDE 


EE03 


XRI 


3 


DFE0 


6F 


MOV 


L,A 


DFEi 


26F3 


MVI 


H, {ORIGIN+ 


DFE3 


7E 


MOV 


A,M 


DFE4 


E608 


ANI 


DBLSID 


DFE6 


11FDE3 


LXI 


D,DPB128S 


DFE9 


C2EFDF 


JNZ 


SIDEOK 


DFEC 


113DE4 


LXI 


D,DPB128D 


DFEF 


EB SIDEOK XCHG 




DFF0 


Dl 


POP 


D 


DFFl 


Fl 


POP 


PSW 


DFF2 


17 


RAL 




DFF3 


17 


RAL 




DFF4 


4F 


MOV 


C,A 


DFF5 


0600 


MVI 


B,0 


DFF7 


09 


DAD 


B 


DFF8 


EB 


XCHG 




DFF9 


73 


MOV 


M,E 


DFFA 


23 


I NX 


H 


DFFB 


72 


MOV 
END IF 


M,D 






IF 


(MAXHD NE 


DFFC 


C349E0 


JMP 


SETDRVl 






IF 


NOT FIRST 


DFFF 


D602 SUBFP SUI 


MAXFLOP 






ENDIF 








ENDIF 








IF 


MAXHD NE 


E001 


CD68E0 DRVHD CALL 


DIVLOG 


E004 


79 


MOV 


A,C 


E005 


322AE3 


STA 


HDDISK 


E008 


CD18E3 


CALL 


DRVPTR 


E00B 


7E 


MOV 


A,M 


E00C 


3C 


INR 


A 



; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



SAVE POINTER TO PROPER XLT 
GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
y OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 

GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 

FOR PROPER REV I 

; CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB ' S 

;BASE OF DOUBLE SIDED DPB ' S 
;HL <- DBP BASE, DE <- &DPH.DPB 
; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



; ADJUST FOR PROPER REV DJ 



;PUT DPB ADDRESS IN DPH 



;SKIP OVER THE HARD DISK SELECT 
; ADJUST THE DRIVE # 



; DIVIDE BY LOGICAL DISKS PER DRIVE 
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E00D 


C249E0 


JNZ 


SETDRVl 


E010 


F6FC 


ORI 


NULL 


E012 


D352 


OUT 


HDFUNC 


E014 


3E05 


MVI 


A, SCENBL 


E016 


D350 


OUT 


HDCNTL 


E018 


0EEF 


MVI 


C,239 


E01A 


210000 


LXI 


H,0 


E01D 


2B 


TDELAY DCX 


H 


E01E 


7C 


MOV 


A,H 


E01F 


B5 


ORA 


L 


E020 


CC66E0 


CZ 


DCRC 


E023 


C8 


RZ 




E024 


DB50 


IN 


HDSTAT 


E026 


E620 


ANI 


DRVRDY 


E028 


C21DE0 


JNZ 


TDELAY 






IF 


SDELAY 


E02B 


210000 


LXI 


H,0 


E02E 


0E40 


MVI 


C , INDEX 


E030 


DB50 


IN 


HDSTAT 


E032 


Al 


ANA 


C 


E033 


47 


MOV 


B,A 


E034 


DB50 


INDXl IN 


HDSTAT 


E036 


Al 


ANA 


C 


E037 


B8 


CMP 


B 


E038 


CA34E0 


JZ 


INDXl 


E03B 


23 


INDX2 INX 


H 


E03C 


DB50 


IN 


HDSTAT 


E03E 


Al 


ANA 


C 


E03F 


B8 


CMP 


B 


E040 


C23BE0 


JNZ 


INDX2 






IF 


M10 






DAD 


H 






ENDIF 




E043 


2210E2 


SHLD 
ENDIF 


SETTLE 


E046 


CDFAEl 


CAT.T. 
ENDIF 


HDHOME 


E049 


CD71E0 


SETDRVl CAT.T. 


GETDPB 


E04C 


010F00 


LXI 


B,15 


E04F 


09 


DAD 


B 


E050 


7E 


MOV 


A,M 


E051 


E607 


ANI 


7H 


E053 


329EE0 


STA 


SECSIZ 


E056 


7E 


MOV 


A,M 


E057 


IF 


RAR 




E058 


IF 


RAR 




E059 


IF 


RAR 




E05A 


IF 


RAR 




E05B 


E60F 


ANI 


0FH 


E05D 


32j)eE0 


STA 


SECPSEC 


E060 


EB 


XCHG 




E061 


C9 


RET 





; SELECT DRIVE 

TENABLE THE CONTROLLER 

;WAIT APPROX 2 MINUTES FOR DISK TO READY 



;TEST IF READY YET 



;TIME ONE REVOLUTION OF THE DRIVE 



;SAVE CURRENT INDEX LEVEL IN B 



;LOOP UTIL INDEX LEVEL CHANGES 



7 START COUNTING UNTIL INDEX RETURNS TO 
; PREVIOUS STATE 



J SAVE THE COUNT FOR TIMEOUT DELAY 



;GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 



7HL <- DPH 



E062 210000 



ZRET 



LXI 



H,0 



;SELDRV ERROR EXIT 
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E065 


C9 




RET 
IF 


MAXHD NE 


E066 


0D 


DCRC 


DCR 


C 


E067 


C9 




RET 




E068 


0E00 


DIVLOG 


MVI 


C,0 


E06A 


D603 


DIVLOGX 


SUI 


LOGDSK 


E06C 


D8 




RC 




E06D 


0C 




INR 


C 


E06E 


C36AE0 




JMP 
ENDIF 


DIVLOGX 



; CONDITIONAL DECREMENT C ROUTINE 



*****ie ******************** ********************************* ****** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OP THE CURRENTLY * 

* SELECTED DRIVE, DE POINTING TO DPH. * 

* * 

***************************************************************** 



E071 


3AFFE4 GETDPB LDA 


CPMDRV 


E074 


6F 


MOV 


L,A 


E075 


2600 


MVI 


H,0 


E077 


29 


DAD 


H 


E078 


29 


DAD 


H 


E079 


29 


DAD 


H 


E07A 


29 


DAD 


H 


E07B 


11ADE4 


LXI 


D, DPBASE 


E07E 


19 


DAD 


D 


E07F 


E5 


PUSH 


H 


E080 


110A00 


LXI 


D,10 


E083 


19 


DAD 


D 


E084 


7E 


MOV 


A,M 


E085 


23 


I NX 


H 


E086 


66 


MOV 


H,M 


E087 


6F 


MOV 


L,A 


E088 


Dl 


POP 


D 


E089 


C9 


RET 





yFORM OFFSET 



;BASE OF DPH'S 

;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

;GET LOW BYTE OF DPB ADDRESS 

;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 



E08A 2FE3 
E08C 4AE3 
E08E 7FE3 
E090 BCE3 



XLTS 



IF 


MAXFLOP NE 


DW 


XLT123 


DW 


XLT256 


DW 


XLTS 12 


DW 
ENDIF 


XLT124 



;XLT FOR 128 BYTE SECTORS 
;XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
;XLT FOR 1024 BYTE SECTORS 



***************************************************************** 

* . -,, ; „ *.; 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 
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* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

It**************************************************************** 



E092 79 
E093 3204E1 
E096 3E01 
E098 06 



WRITE MOV A,C 

STA WRITTYP 

MVI A,l 

DB (MVI) OR (8*8) 



;SAVE WRITE COMMAND TYPE 

ySET WRITE COMMAND 

;THIS "MVI B" INSTRUCTION CAUSES 
r THE FOLLOWING "XRA A" TO 
BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 

***************************************************************** 



E099 AF 
E09A 32F0E0 



READ XRA A 

STA RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 

* * 

***************************************************************** 



E09D 


0600 


REDWRT 


MVI 


B,0 


E09E 


=: 


SECSIZ 


EQU 


$-1 


E09F 


2AFDE4 




LHLD 


CPMSEC 


E0A2 


7C 




MOV 


A,H 


E0A3 


E680 




ANI 


80H 


E0A5 


4F 




MOV 


C,A 


E0A6 


7C 




MOV 


A,H 


E0A7 


E67F 




ANI 


7FH 


E0A9 


67 




MOV 


H,A 


E0AA 


2B 




DCX 


; Hi .... • y. ' ,. 


E0AB 


05 


DIVLOOP 


DCR 


B 


E0AC 


CAB9E0 




JZ 


DIVDONE 


E0AF 


B7 




ORA 


Av:.. ■■•-. 


E0B0 


7C 




MOV 


A,H 



;THE IS MODIFIED TO CONTAIN THE L0G2 
; OF THE PHYSICAL SECTOR SIZE/128 
; ON THE CURRENTLY SELECTED DISK. 
;GET THE DESIRED CP/M SECTOR # 

;SAVE ONLY THE SIDE BIT 
; REMEMBER THE SIDE 

? FORGET THE SIDE BIT 

•y TEMPORARY ADJUSTMENT 
y UPDATE REPEAT COUNT 
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E0B1 


IF 


RAR 




E0B2 


67 


MOV 


H,A 


E0B3 


7D 


MOV 


A,L 


E0B4 


IF 


RAR 




E0B5 


6F 


MOV 


L,A 


E0B6 


C3ABE0 


JMP 


DIVLOOP 


E0B9 


23 


DIVDONE INX 


H 


E0BA 


7C 


MOV 


A,H 


E0BB 


Bl 


ORA 


C 


E0BC 


67 


MOV 


H,A 


E0BD 


2201E5 


SHLD 


TRUE SEC 


E0C0 


21FFE4 


LXI 


H,CPMDRV 


E0C3 


1103E5 


LXI 


D,BUFDRV 


E0C6 


0605 


MVI 


B,5 


E0C8 


05 


DTSLOP DCR 


B 


E0C9 


CAD7E0 


JZ 


MOVE 


E0CC 


lA 


LDAX 


D 


E0CD 


BE 


CMP 


M 


E0CE 


23 


INX 


H 


E0CF 


13 


INX 


D 


E0D0 


CAC8E0 


JZ 


DTSLOP 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



; RESTORE THE SIDE BIT 

;SAVE THE PHYSICAL SECTOR NUMBER 

; POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

; POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

; COUNT LOOP 

;TEST IF DONE WITH COMPARE 

;YES, MATCH. GO MOVE THE DATA 

;GET A BYTE TO COMPARE 

;TEST FOR MATCH 

?BUMP POINTERS TO NEXT DATA ITEM 

; MATCH, CONTINUE TESTING 

***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 



E0D3 CD9EE1 
E0D6 D8 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;N0 GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 

***************************************************************** 



E0D7 


3AFDE4 


MOVE LDA 


CPMSEC 


E0DA 


3D 


DCR 


A 


E0DB 


E600 


ANI 





E0DC 


s 


SECPSEC EQU 


$-1 


E0DD 


6F 


MOV 


L,A 


E0DE 


2600 


MVI 


H,0 


E0E0 


29 


DAD 


H 


E0EI 


29 


DAD 


H 


E0E2 


29 


DAD 


H 


E0E3 


29 


DAD 


H 


E0E4 


29 


DAD 


H 


E0E5 


29 


DAD 


H 


E0E6 


29 


DAD 


H 


E0E7 


1107E5 


LXI 


D , BUFFER 


E0EA 


19 


DAD 


D 



;GET THE CP/M SECTOR TO TRANSFER 

; ADJUST TO PROPER SECTOR IN BUFFER 

; STRIP OFF HIGH ORDERED BITS 

;THE IS MODIFIED TO REPRESENT THE # OF 

; CP/M SECTORS PER PHYSICAL SECTORS 

;PUT INTO HL 

;FORM OFFSET INTO BUFFER 



; BEGINNING ADDRESS OF BUFFER 

;FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 
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^ 



E0EB 


EB 




XCHG 




E0EC 


210000 




LXI 


H,0 


E0ED 


:= 


CPMDMA 


EQU 


$-2 


E0EF 


3E00 




MVI 


A,0 


E0F0 


= 


RDWR 


EQU 


$-1 


E0F1 


A7 




ANA 


A 


E0F2 


C2FAE0 




JNZ 


INTO 


E0F5 


CDD2E1 


OUTOF 


CALL 


MOVER 


E0F8 


AF 




XRA 


A 


E0F9 


C9 




RET 




E0FA 


EB 


INTO 


XCHG 




E0FB 


CDD2E1 




CALL 


MOVER 


E0FE 


3E01 




MVI 


A,l 


E100 


320DE1 




STA 


BUFWRTN 


E103 


3E00 




MVI 


A,0 


E104 


a: 


WRITTYP 


EQU 


$-1 


E105 


3D 




DCR 


A 


E106 


3E00 




MVI 


A,0 


E108 


3204E1 




STA 


WRITTYP 


E10B 


C0 




RNZ 





DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED TO 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

7 A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
y CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;N0 ERROR EXIT 



1c**************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 

***************************************************************** 



E10C 


3E00 


FLUSH 


MVI 


A,0 


E10D 


sz 


BUFWRTN 


EQU 


?-l 


E10E 


A7 




ANA 


A 


E10F 


C8 




RZ 
IF 


(MAXHD NE 0) 


E110 


2118F4 




LXI 


H, DJWRITE 


E113 


119AE2 




LXI 


D,HDWRITE 


E116 


CDElEl 




CALL 

ELSE 

IF 

LXI 

ENDIF 

IF 

LXI 

ENDIF 

ENDIF 


DECIDE 

MAXHD NE 
H,HDWRITE 

MAXFLOP NE 
H, DJWRITE 



;THE IS MODIFIED TO REFLECT IF 

THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 



;WRITE OPERATION FOR DISK JOCKEY 
yWRITE OPERATION FOR HARD DISK 



*****!************ ******l*iC*** ***********'****************'** ******** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 
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* * 

***1c*******1c****************il*******************1c****1t*1c**1c***ifk* 



E119 


AF 


PREP XRA 


A 


EllA 


320DE1 


STA 


BUFWRTN 


EllD 


227FE1 


SHLD 


RETRYOP 


E120 


060A 


MVI 


B, RETRIES 


E122 


C5 


RETRYLP PUSH 


B 


E123 


3A03E5 


LDA 


BUFDRV 






IF 


(MAXHD NE 0) 






IF 


FIRST 






CPI 


MAXHD*LOGDSK 






JC 


NOADJST 






SUI 


MAXHD*LOGDSK 






ELSE 




E126 


FE02 


CPI 


MAXFLOP 


E128 


DA2DE1 


JC 


NOADJST 


E12B 


D602 


SUI 
ENDIF 


MAXFLOP 


E12D 


4F 


NOADJST MOV 


C,A 


E12E 


2133DD 


LXI 


H,DJDRV 


E131 


11E9E1 


LXI 


D,HDDRV 


E134 


CDDDEl 


CALL 
ELSE 


DECIDGO 






MOV 


C,A 






IF 


MAXHD NE 






CALL 


HDDRV 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJDRV 






ENDIF 








ENDIF 




E137 


3A04E5 


LDA 


BUFTRK 


E13A 


A7 


ANA 


A 


E13B 


4F 


MOV 


C,A 


E13C 


C5 


PUSH 


B 






IF 


(MAXHD NE 0) 


E13D 


2109F4 


LXI 


H,DJHOME 


E140 


llFAEl 


LXI 


D.HDHOME 


E143 


CCDDEl 


CZ 
ELSE 


DECIDGO 






IF 


MAXHD NE 






CZ 


HDHOME 






ENDIF 








IF 


MAXFLOP NE 






CZ 


DJHOME 






ENDIF 








ENDIF 





; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE the retry COUNT 

yGET DRIVE NUMBER INVOLVED IN THE OPERATION 



; SELECT DRIVE 



? SELECT THE DRIVE 



;TEST FOR TRACK ZERO 



;H0ME the DRIVE IF TRACK 



E146 CI 



POP B ; RESTORE TRACK # 

IF (MAXHD NE 0) AND (MAXFLOP NE 0) 
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E147 210CF4 
E14A 111BE2 
E14D CDDDEl 



LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

END IF 

IF 

CALL 

ENDIF 

ENDIF 



H,DJTRK 
D,HDTRK 
DECIDGO 

MAXHD NE 
HDTRK 

MAXFLOP NE 
DJTRK 



;SEEK TO PROPER TRACK 



E150 2A05E5 
E153 7C 
E154 07 
E155 E601 
E157 4F 



E158 2130F4 
E15B 1147E2 
E15E CDDDEl 



LHLD 

MOV 

RLC 

ANI 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



BUFSEC 
A,H 

1 
C,A 



;GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 
;C <~ SIDE # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSIDE 

D,HDSIDE 

DECIDGO 

MAXHD NE 
HDSIDE 



MAXFLOP NE 
DJSIDE 



? SELECT THE SIDE 



E161 2A05E5 
E164 7C 
E165 E67F 
E167 47 
E168 4D 



E169 210FF4 
E16C 1150E2 
E16F CDDDEl 



LHLD 

MOV 

ANI 

MOV 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



BUFSEC 

A,H 

7FH 

B,A 

C,L 



; STRIP OFF SIDE BIT 
;C <~ SECTOR # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSEC 

D, HDSEC 

DECIDGO 

MAXHD NE 
HDSEC 



MAXFLOP NE 
DJSEC 



; SELECT THE SIDE 



E172 0107E5 



E175 2112F4 
E178 1142E2 
E17B CDDDEl 



LXI 

IF 
LXI 
LXI 
CALL 



B, BUFFER 



;SET THE DMA ADDRESS 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJDMA 

D,HDI»1A 

DECIDGO 



CP/M MACRO ASSEM 2.0 



#027 



*** Chios For CP/M Ver. 2.2 *** 







ELSE 








IF 


MAXHD NE 






CALL 


HDDMA 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJDMA 






ENDIF 








ENDIF 




E17E 


CD0000 


CALL 





E17F 


= 


RETRYOP EQU 


$-2 


E181 


CI 


POP 


B 


E182 


3E00 


MVI 


A,0 


E184 


D0 


RNC 




E185 


05 


DCR 


B 


E186 


37 


STC 




E187 


3EFF 


MVI 


A,0FFH 


E189 


C8 


RZ 




E18A 


78 


MOV 


A,B 


E18B 


FE05 


CPI 


RETRIES/2 


E18D 


C222E1 


JNZ 


RETRYLP 


E190 


C5 


PUSH 


B 






IF 


(MAXHD NE 0) 


E191 


2109F4 


LXI 


H,DJHOME 


E194 


llFAEl 


LXI 


D.HDHOME 


E197 


CDDDEl 


CALL 
ELSE 


DECIDGO 






IF 


MAXHD NE 






CAI.T. 


HDHOME 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJHOME 






ENDIF 








ENDIF 




E19A 


CI 


POP 


B 


E19B 


C322E1 


JMP 


RETRYLP 



; SELECT THE SIDE 



;GET OPERATION ADDRESS 

; RESTORE THE RETRY COUNTER 

;N0 ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 



;TRY AGAIN 



;HOME THE DRIVE IF TRACK 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



E19E CD0CE1 
ElAl D8 
E1A2 11FFE4 
E1A5 2103E5 
E1A8 0604 
ElAA CDD4E1 

ElAD 3AF0E0 
E1B0 A7 
ElBl CAC6E1 
E1B4 3A04E1 



FILL 



CALL 


FLUSH 


RC 




LXI 


D, CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,4 


CALL 


MOVLOP 


LDA 


RDWR 


ANA 


A 


JZ 


FREAD 


LDA 


WRITTYP 



; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

jUPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
;COPY THE DATA 



CP/M MACRO ASSEM 2.0 
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*** Cbios For CP/M Ver. 2.2 *** 



E1B7 3D 
E1B8 3D 
E1B9 C8 
ElBA CD71E0 
ElBD 110F00 
E1C0 19 
ElCl 7E 
E1C2 E603 
E1C4 3D 
E1C5 C8 

E1C6 = 

E1C6 2115F4 
E1C9 1165E2 
EICC CDElEl 



FREAD 



EICF C319E1 



DCR 


A 


OCR 


A 


RZ 




CALL 


GETDPB 


LXI 


D,15 


DAD 


D 


MOV 


A,M 


ANI 


3 


DCR 


A 


RZ 




EQU 


$ 


IF 


(MAXHD NE 0) 


LXI 


H,DJREAD 


LXI 


D,HDREAD 


CALL 


DECIDE 


ELSE 




IF 


MAXHD NE 


LXI 


H, HDREAD 


ENDIF 




IF 


MAXFLOP NE 


LXI 


H,DJREAD 


ENDIF 




ENDIF 




JMP 


PREP 



; SELECT THE SIDE 



r SELECT DRIVE, TRACK, AND SECTOR. 
; THEN READ THE BUFFER 



* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * 



E1D2 0680 


MOVER 


MVI 


B,128 


E1D4 lA 


MOVLOP 


LDAX 


D 


E1D5 77 




MOV 


M,A 


E1D6 13 




I NX 


D 


E1D7 23 




I NX 


H 


E1D8 05 




DCR 


B 


E1D9 C2D4E1 




JNZ 


MOVLOP 


EIDC C9 




RET 





.•LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
rMOVE IT 
;BUMP POINTERS 

; UPDATE COUNTER 

.•CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* ROUTINES TO DECIDE WHICH CONTROLLER TO USE. * 

* * 

***************************************************1,1l1f1C********** 



EIDD CDElEl 
E1E0 E9 



IF 
DECIDGO CALL 
PCHL 
ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
DECIDE rWHICH CONTROLLER ? 



ElEl 3A03E5 



IF 
DECIDE LDA 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

BUFDRV ;GET PROPER ROUTINE INTO H&L, BASED 



CP/M macro ASSEM 2.0 #029 



E1E4 FE02 
E1E6 D8 

E1E7 EB 
E1E8 C9 



*** Cbios For CP/M Ver. 2.2 *** 

; ON CURRENTLY SELECTED DRIVE 



IF 


FIRST 


CPI 


MAXHD*LOGDSK 


RNC 




ELSE 




CPI 


MAXFLOP 


RC 




ENDIF 




XCHG 




RET 




ENDIF 





***************************************************************** 

* * 

* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS * 

* FOR THE HARD DISK. * 

* * 

***************************************************************** 









IF 


MAXHD NE 


E1E9 


79 


HDDRV 


MOV 


A,C 


ElEA 


CD68E0 




CAT.T. 


DIVLOG 


ElED 


79 




MOV 


A,C 


ElEE 


322AE3 




STA 


HDDISK 


ElFl 


F6FC 




ORI 


NULL 


E1F3 


D352 




OUT 


HDFUNC 


E1F5 


3E0F 




MVI 


A.WENABL 


E1F7 


D350 




OUT 


HDCNTL 


E1F9 


C9 




RET 




EIFA 


CD18E3 


HDHOME 


CALL 


DRVPTR 


EIFD 


3600 




MVI 
IF 


M,0 
SDELAY 


EIFF 


DB50 


STEPO 


IN 


HDSTAT 


E201 


E601 




ANI 


TKZERO 


E203 


CA0FE2 




JZ 


DELAY 


E206 


3E01 




MVI 


A, I 


E208 


37 




STC ■ 




E209 


CD2FE2 




CALL 


ACCOK 


E20C 


C3FFE1 


■■ ' 


JMP 


STEPO 



f SELECT HARD DISK DRIVE 
;GET THE PHYSICAL DRIVE # 

; SELECT THE DRIVE 



;SET TRACK TO ZERO 



;TEST STATUS 

J AT TRACK ZERO ? 



;TAKE ONE STEP OUT 



ELSE 









IN 


HDSTAT 








ANI 


TKZERO 








RZ 




■* 






XRA 


A 








JMP 


ACCOK 








ENDIF 






: ., 




IF 


SDELAY 


E20F 


210000 


DELAY 


LXI 


H,0 


E210 


=s 


SETTLE 


EQU 


?-2 


E212 


2B 


DELOOP 


DCX 


H 


E213 


7C 




MOV 


A,H 


E214 


B5 




ORA 


L 



;GET DELAY 
;WAIT 20MS 



cp/m macro ASSEM 2.0 
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*** Cbios For CP/M Ver. 2.2 *** 



E215 


23 




I NX 


H 


E216 


2B 




DCX 


H 


E217 


C212E2 




JNZ 


DELOOP 


E21A 


C9 




RET 
ENDIF 




E21B 


CD18E3 


HDTRK 


CALL 


DRVPTR 


E21E 


5E 




MOV 


E,M 


E21F 


71 




MOV 


M,C 


E220 


7B 




MOV 


A,E 


E221 


91 




SUB 


C 


E222 


C8 




RZ 




E223 


3F 




CMC 




E224 


DA29E2 




JC 


HDTRK2 


E227 


2F 




CMA 




E228 


3C 




INR 
IF 


A 

NOT SDELAY 






HDTRK2 


JMP 
ELSE 


ACCOK 


E229 


CD2FE2 


HDTRK2 


CALL 


ACCOK 


E22C 


C30FE2 




JMP 
ENDIF 


DELAY 


E22F 


47 


ACCOK 


MOV 


B,A 


E230 


CD23E3 




CALL 


BUILD 


E233 


E6FB 


SLOOP 


ANI 


NSTEP 


E235 


D352 




OUT 


HDFUNC 


E237 


F604 




ORI 


PSTEP 


E239 


D352 




OUT 


HDFUNC 


E23B 


05 




DCR 


B 


E23C 


C233E2 




JNZ 


SLOOP 


E23F 


C348E2 




JMP 


WSDONE 


E242 


60 


HDDMA 


MOV 


H,B 


E243 


69 




MOV 


L,C 


E244 


227FE2 




SHLD 


HDADD 


E247 


= 


HDSIDE 


EQU 


$ 


E247 


C9 




RET 




E248 


DB50 


WSDONE 


IN 


HDSTAT 


E24A 


E604 




ANI 


COMPLT 


E24C 


CA48E2 




JZ 


WSDONE 


E24F 


C9 




RET 
IF 


M26 


E250 


3E1F 


HDSEC 


MVI 


A,01FH 


E252 


Al 




ANA 


C 


E253 


CC62K2 


"■ ■'■ 


C2 ■■ 


GETSPT 


E256 


3208E3 




STA 


HDSECTR 


E259 


3EE0 


■ ■ ■■ " 


MVI 


A,0E0H 


E25B 


Al 




ANA 


C 


E25C 


07 




RLC 




E25D 


07 




RLC 




E25E 


07 




RLC 




E25F 


3224E3 




STA 


HEAD 


E262 


3E20 


GETSPT 


MVI 


A, HDSPT 



;GET POINTER TO CURRENT TRACK 
;GET CURRENT TRACK 
; UPDATE THE TRACK 
;NEED TO SEEK AT ALL ? 



;GET CARRY INTO DIRECTION 



7 PREP FOR BUILD 

?GET STEP PULSE LOW 

; OUTPUT LOW STEP LINE 

ySET STEP LINE HIGH 

; OUTPUT HIGH STEP LINE 

; UPDATE REPEAT COUNT 

;KEEP GOING THE REQUIRED # OF TRACKS 



ySAVE THE DMA ADDRESS 



;WAIT FOR SEEK COMPLETE TO FINISH 



;FOR COMPATIBILITY WITH CBIOS REV 2.3, 2.4 



CP/M MACRO ASSEM 2.0 
E264 C9 



#031 

RET 

ELSE 



*** Cbios For CP/M Ver. 2.2 *** 







HDSEC MOV 


A,C 






CALL 


DIVSPT 






ADI 


HDSPT 






ANA 


A 






CZ 


GETSPT 






STA 


HDSECTR 






MOV 


A,C 






STA 


HEAD 






GETSPT MVI 


A, HDSPT 






DCR 


C 






RET 








DIVSPT MVI 


C,0 






DIVSPTX SUI 


HDSPT 






RC 








INR 


C 






JMP 


DIVSPTX 






ENDIF 




E265 


CDE3E2 


HDREAD CALL 


HDPREP 


E268 


D8 


RC 




E269 


AF 


XRA 


A 


E26A 


D351 


OUT 


HDCMND 


E26C 


2F 


CMA 




E26D 


D353 


OUT 


HDDATA 


E26F 


D353 


OUT 


HDDATA 


E271 


3E01 


MVI 


A, RSECT 


E273 


D351 


OUT 


HDCMND 


E275 


CDC9E2 


CALL 


PROCESS 


E278 


D8 


RC 




E279 


AF 


XRA 


A 


E27A 


D351 


OUT 


HDCMND 


E27C 


0630 


MVI 


B,SECLEN/4 


E27E 


210000 


LXI 


H,0 


E27F 


=5 


HDADD EQU 


$-2 


E281 


DBS 3 


IN 


HDDATA 


E283 


DB53 


IN 


HDDATA 


E285 


DBS 3 


RTLOOP IN 


HDDATA 


E287 


77 


MOV 


M,A 


E288 


23 


INX 


H 


E289 


DBS 3 


IN 


HDDATA 


E28B 


77 


MOV 


M,A 


E28C 


23 


INX 


H 


E28D 


DB53 


IN 


HDDATA 


E28F 


77 


MOV 


M,A 


E290 


23 


INX 


H 


E291 


DBS 3 


IN 


HDDATA 


E293 


77 


1 MOV 


M,A 


E294 


23 


INX 


H 


E295 


05 


DCR 


B 


E296 


C285E2 


JNZ 


RTLOOP 


E299 


C9 


RET 





;READ SECTOR COMMAND 



fMOVE FOUR BYTES 



CP/M MACRO ASSEM 2.0 
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*** Cbios For CP/M Ver. 2,2 



*** 





E29A 


CDE3E2 


HDWRITE CALL 


HDPREP 




E29D 


D8 


RC 






E29E 


AF 


XRA 


A 




E29F 


D351 


OUT 


HDCMND 




E2A1 


2A7FE2 


LHT.D 


HDADD 




E2A4 


0680 


MVI 


B,SECLEN 




E2A6 


7E 


WTLOOP MOV 


A,M 




E2A7 


D353 


OUT 


HDDATA 




E2A9 


23 


I NX 


H 




E2AA 


7E 


MOV 


A,M 




E2AB 


D353 


OUT 


HDDATA 




E2AD 


23 


I NX 


H 




E2AE 


7E 


MOV 


A,M 




E2AF 


D353 


OUT 


HDDATA 




E2B1 


23 


I NX 


H 




E2B2 


7E 


MOV 


A,M 




E2B3 


D353 


OUT 


HDDATA 




E2B5 


23 


I NX 


H 




E2B6 


05 


DCR 


B 




E2B7 


C2A6E2 


JNZ 


WTLOOP 




E2BA 


3E05 


MVI 


A,WSECT 




E2BC 


D351 


OUT 


HDCMND 




E2BE 


CDC9E2 


CALL 


PROCESS 




E2C1 


D8 


RC 






E2C2 


3E10 


MVI 


A,WFAULT 




E2C4 


A0 


ANA 


B 




E2C5 


37 


STC 






E2C6 


C8 


RZ 






E2C7 


AF 


XRA 


A 




E2C8 


C9 


RET 






E2C9 


DB50 


PROCESS IN 


HDSTAT 




E2CB 


47 


MOV 


B,A 




E2CC 


E602 


ANI 


OPDONE 




E2CE 


CAC9E2 


JZ 


PROCESS 




E2D1 


3E07 


MVI 


A,DSKCLK 




E2D3 


D350 


OUT 


HDCNTL 




E2D5 


DB50 


IN 


HDSTAT 




E2D7 


E608 


ANI 


TMOUT 




E2D9 


37 


STC 






E2DA 


C0 


RNZ 






E2DB 


DB51 


IN 


HDRESLT 




E2DD 


E602 


ANI 


RETRY 




E2DF 


37 


STC 






E2E0 


C0 


RNZ 






E2E1 


AF 


XRA 


A 




E2E2 


C9 


RET 






E2E3 


DB50 


HDPREP IN 


HDSTAT 




E2E5 


E620 


ANI 


DRVRDY 




E2E7 


37 


STC 






E2E8 


C0 


RNZ 






E2E9 


3E08 


MVI 


A,ISBUFF 




E2EB 


D351 


OUT 


HDCMND 




E2ED 


CD23E3 


CALL 


BUILD 













.•PREPARE HEADER 



;MOVE 4 BYTES 



TISSUE WRITE SECTOR COMMAND 



rWAIT FOR COMMAND TO FINISH 



; TIMED OUT ? 



rANY RETRIES ? 



; INITIALIZE POINTER 



CP/M MACRO ASSEM 2.0 
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*** Cbios For CP/M Ver. 2.2 *** 



E2F0 


F60C 




ORI 


0CH 


E2F2 


D352 




OUT 


HDFUNC 


E2F4 


3A24E3 




LDA 


HEAD 


E2F7 


D353 




OUT 


HDDATA 


E2F9 


CD18E3 




CALL 


DRVPTR 


E2FC 


7E 




MOV 


A,M 


E2FD 


D353 




OUT 


HDDATA 


E2FF 


A7 




ANA 


A 


E300 


0680 




MVI 


B,80H 


E302 


CA07E3 




JZ 


ZKEY 


E305 


0600 




MVI 


B,0 


E307 


3E00 


ZKEY 


MVI 


A,0 


E308 


= 


HDSECTR 


EQU 


$-1 


E309 


D353 




OUT 


HDDATA 


E30B 


78 




MOV 


A,B 


E30C 


D353 




OUT 


HDDATA 


E30E 


3E07 




MVI 


A,DSKCLK 


E310 


D350 




OUT 


HDCNTL 


E312 


3E0F 




MVI 


A,WENABL 


E314 


D350 




OUT 


HDCNTL 


E316 


AF 




XRA 


A 


E317 


C9 




RET 




E318 


2A2AE3 


DRVPTR 


LHLD 


HDDISK 


E31B 


EB 




XCHG 




E31C 


1600 




MVI 


D,0 


E31E 


212EE3 




LXI 


H, DRIVES 


E321 


19 




DAD 


D 


E322 


C9 




RET 




E323 


3E00 


BUILD 


MVI 


A,0 


E324 


= 


HEAD 


EQU 


?-l 


E325 


17 




RAL 




E326 


17 




RAL 




E327 


17 




RAL 




E323 


17 




RAL 




E329 


F600 




ORI 





E32A 


= 


HDDISK 


EQU 


$-1 


E32B 


EEF0 




XRI 


0F0H 


E32D 


C9 




RET 




E32E 


«* 


DRIVES 


EQU 
REPT 
DB 
ENDM 


$ 

MAXHD 

0FFH 


E32E+FF 




DB 


0FFH 








ENDIF 





?FORM HEAD BYTE 
;FORM TRACK BYTE 



;PORM SECTOR BYTE 



***************************************************************** 

* * 



* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M 
SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW 
TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE 
TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE 
LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. 



* 
* 

* 



CP/M MACRO ASSEM 2.0 #034 *** Cbios For CP/M Ver. 2.2 *** 

* * 

***************************************************************** 

IF MAXFLOP NE 


1,7,13,19,25 
5,11,17,23 
3,9,15,21 
2,8,14,20,26 
6,12,18,24 
4,10,16,22 



1,2,19,20,37,38 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,48 

13,14,31,32,49,50 

15,16,33,34,51,52 

17,18,35,36 



E32F 


00 XLT128 


DB 


E330 


01070D1319 


DB 


E335 


050B1117 


DB 


E339 


03090F15 


DB 


E33D 


02080E141A 


DB 


E342 


060C1218 


DB 


E346 


040A1016 


DB 


E34A 


00 XLT256 


DB 


E34B 


0102131425 


DB 


E351 


0304151627 


DB 


E357 


0506171829 


DB 


E35D 


0708191A2B 


DB 


E363 


090A1B1C2D 


DB 


E369 


0B0C1D1E2F 


DB 


E36F 


0D0E1F2031 


DB 


E375 


0F10212233 


DB 


E37B 


11122324 


DB 


E37F 


00 XLT512 


DB 


E380 


0102030411 


DB 


E388 


2122232431 


DB 


E390 


0506070815 


DB 


E398 


2526272835 


DB 


E3A0 


090A0B0G19 


DB 


E3A8 


292A2B2C39 


DB 


E3B0 


0D0E0F101D 


DB 


E3B8 


2D2E2F30 


DB 


E3BC 


00 XLT124 


DB 


E3BD 


0102030405 


DB 


E3C5 


191A1B1C1D 


DB 


E3CD 


3132333435 


DB 


E3D5 


090A0B0C0D 


DB 


E3DD 


2122232425 


DB 


E3E5 


393A3B3C3D 


DB 


E3ED 


1112131415 


DB 


E3F5 


292A2B2C2D 


DB 



1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45,46,47,48 



1,2,3,4,5,6,7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 

***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. * 

* * 

***************************************************************** 



****** ** * * ******** * * * ****************************** * * ************ 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY* AND SINGLE SIDED. * 

* * 



CP/M MACRO ASSEM 2.0 #035 *** Cbios For CP/M Ver. 2.2 *** 



cp/m sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) 

L0G2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 

1c**************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E3FD IA00 


DPB128S DW 


26 


E3FF 03 


DB 


3 


E400 07 


DB 


7 


E401 00 


DB 





E402 F200 


DW 


242 


E404 3F00 


DW 


63 


E406 C0 


DB 


0C0H 


E407 00 


DB 





E408 1000 


DW 


16 


E40A 0200 


DW 


2 


E40C 01 


DB 


IH 



-1) + 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

L0G2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E40D 


3400 


DPB256S DW 


52 


E40F 


04 


DB 


4 


E410 


0F 


DB 


15 


E411 


00 


DB 





E412 


F200 


DW 


242 


E414 


7F00 


DW 


127 


E416 


C0 


DB 


0C0H 


E417 


00 


DB 





E418 


2000 


DW 


32 


E41A 


0200 


DW 


2 


E41C 


12 


DB 


12H 



E41D 3C00 


DPB512S DW 


60 


E41F 04 


DB 


4 


E420 0F 


DB 


15 


E421 00 


DB 





E422 1801 


DW 


280 


E424 7F00 


DW 


127 


E426 C0 


DB 


0C0H 


E427 00 


' DB 





E428 2000 


DW 


32 


E42A 0200 


DW 


2 


E42C 33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16?(( 

L0G2( 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 



CP/M macro ASSEM 2.0 #036 



*** Cbios For CP/m Ver. 2.2 *** 

;8 IF DOUBLE SIDED. 



E42D 4000 


DP1024S DW 


64 


E42F 04 


DB 


4 


E430 0F 


DB 


15 


E431 00 


DB 





E432 2B01 


DW 


299 


E434 7F00 


DW 


127 


E436 C0 


DB 


0C0 


E437 00 


DB 





E438 2000 


DW 


32 


E43A 0200 


DW 


2 


E43C 74 


DB 


74H 



***************************************************************** 
* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 

;CP/M SECTORS/TRACK 

;BSH 

;BU1 

yEXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

•OFF 

;16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

;L0G2(#BYTES PER SECTOR/ 128) + 1 + 

;8 IF DOUBLE SIDED. 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 

************************** ****************1c**1,1cieicici,1c* Hie********** 

;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

yALl 

;CKS 

;OFF 

********************** ************************1,*1eic1ii,i,*1i1,1,1t*1,***** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

********************************************* *i,*ii1,1,1,1,*1c1g1cie*****1^1f 

;CP/M SECTORS/TRACK 

;BSH 

TBLM 

;EXM 

;DSM 

;DRM 

;AL0 



E43D 3400 


DPB128D DW 


52 


E43F 04 


DB 


4 


E440 0F 


DB 


15 


E441 01 


DB 


1 


E442 F200 


DW 


242 


E444 7F00 


DW 


127 


E446 C0 


DB 


0C0H 


E447 00 


DB 





E448 2000 


DW 


32 


E44A 0200 


DW 


2 


E44C 09 


DB 


9H 



E44D 6800 


DPB256D DW 


104 


E44F 04 


DB 


4 


E450 0F . 


DB 


15 


E451 00 


DB 





E452 E601 


DW 


486 


E454 FF00 


DW 


256 


E456 F0 


DB 


0F0 



CP/M MACRO ASSEM 2.0 #037 *** Cbios For CP/M Ver. 2.2 *** 



E457 00 
E458 4000 
E45A 0200 
E45C lA 



DB 





DW 


64 


DW 


2 


DB 


lAH 



;AL1 
;CKS 
;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



E45D 7800 


DPB512D DW 


120 


E45F 04 


DB 


4 


E460 0F 


DB 


15 


E461 00 


DB 





E462 3102 


DW 


561 


E464 FF00 


DW 


255 


E466 F0 


DB 


0F0H 


E467 00 


DB 





E468 4000 


DW 


64 


E46A 0200 


DW 


2 


E46C 3B 


DB 


3BH 



;CP/M SECTORS/TRACK 

jBSH 

;BLM 

;EXM 

?DSM 

rDRM 

?AL0 

;AL1 

?CKS 

;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



E46D 8000 


DP1024D DW 


128 


E46F 04 


DB 


4 


E470 0F 


DB 


15 


E471 00 


DB 





E472 5702 


DW 


599 


E474 FF00 


DW 


255 


E476 F0 


DB 


0F0H 


E477 00 


DB 





E478 4000 


DW 


64 


E47A 0200 


DW 


2 


E47C 7C 


DB 
ENDIF 


7CH 



;CP/M SECTORS/ TRACK 

;BSH 

;BIM 

;EXM 

;DSM 

;DRM 

;AL0 

?AL1 

;CKS 

;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A 10 MEGABYTE HARD DISK, WITH 512 * 

* BYTE SECTORS. * 

* * 

***************************************************************** 



. 1, ^ 




IF 


MAXHD NE 0: 


, , " 






IF 


M26 NE 




E47D 0004 


DPBHDl 


DW 


1024 


;CP/M SECTORS/ track 


E47F 05 




DB 


.;',5.; 


7Bm ■■:„■' , :i... 


E480 IF 




DB 


31 


?BLM 



cp/m macro ASSEM 2.0 



#038 



'** Cbios For CP/M Ver. 2.2 *** 



E481 


01 


DB 


1 


E482 


B507 


DW 


1973 


E484 


FF01 


DW 


511 


E486 


FF 


DB 


0FFH 


E4B7 


FF 


DB 


0FFH 


E488 


0000 


DW 





E48A 


0100 


DW 


1 


E48C 


33 


DB 


33H 


E48D 


0004 DPBHD2 DW 


1024 


E48F 


05 


DB 


5 


E490 


IF 


DB 


31 


E491 


01 


DB 


1 


E492 


B507 


DW 


1973 


E494 


FF01 


DW 


511 


E496 


FF 


DB 


0FFH 


E497 


FF 


DB 


0FFH 


E498 


0000 


DW 





E49A 


4000 


DW 


64 


E49C 


33 


DB 


33H 



EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* (( 

L0G2( 

8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* (( 

L0G2( 

8 IF 



#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 
SECTORS/TRACK 



#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
# BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



E49D 


0004 


E49F 


05 


E4A0 


IF 


E4A1 


01 


E4A2 


B507 


E4A4 


FF01 


E4A6 


FF 


E4A7 


FF 


E4A8 


0000 


E4AA 


7F00 


E4AC 


33 



DPBHD3 



DPBHDl 



DPBHD2 



DW 
DB 
DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 
DB 



ENDIF 

IF 

DW 

DB 

DB 

DB 

DW 

DW 

DB 

DB 

DW 

DW 

DB 



DW 
DB 
DB 
DB 



1024 

5 

31 

1 

1973 

511 

0FFH 

0FFH 



127 

33H 



M10 NE 

336 

5 

31 

1 

1269 

511 

0FFH 

0FFH 



1 

33H 



336 

5 

31 

1 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* (( 

L0G2( 

8 IF 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* (( 

LOG2( 

8 IF 

CP/M 

BSH 

BLM 

EXM 



SECTORS/TRACK 



#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



SECTORS/ TRACK 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 
SECTORS/TRACK 



CP/M macro ASSEM 2.0 



#039 



*** Cbios For CP/M Ver. 2.2 *** 



DW 


1280 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


122 


DB 


33H 


ENDIF 




IF 


M20 NE 


DPBHDl DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2015 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


33H 


DPBHD2 DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2015 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


98 


DB 


33H 



;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 

;16*((#CPM SECTORS/PHYSICAL SECTOR) -1) 4- 

;L0G2(#BYTES PER SECTOR/128) + 1 + 

;8 IF DOUBLE SIDED. 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* (( 

L0G2( 

8 IF 

CP/M 

BSH 

BIM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* (( 

L0G2{ 

8 IF 



SECTORS/TRACK 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
# BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 
SECTORS/TRACK 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 



DPBHD3 



DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


1028 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


195 


DB 


33H 


ENDIF 




ENDIF 





CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

ALl 

CKS 

OFF 

16* ( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/ PHYSICAL SECTOR) 
{#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



-1) + 



*******1c**1e******:k**1c**************^***** *************** ********* 

* * 



CP/M MACRO ASSEM 2.0 



#040 



'** Cbios For CP/M Ver. 2.2 *** 



* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 

***************************************************************** 



HEADER 



MACRO 

DW 

DW 

DW 

DW 

DW 

DW 

ENDM 



ND.DPB 



0,0,0 

DIRBUF 

DPB 

CSV&ND 

ALV&ND 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

J DIRECTORY BUFFER 

;DPB FILLED IN LATER 

.•DIRECTORY CHECK VECTOR 

.•ALLOCATION VECTOR 



E4AD = 
0000 # 



DPBASE 
DN 



DN 
DN 



DN 



DN 



DN 



E4AD+0000 

E4AF+0000000000 

E4B5+07E9 

E4B7+0000 

E4B9+D2E9 

E4BB+87E9 

E4BD+0000 

E4BF+0000000000 

E4C5+07E9 

E4C7+0000 

E4C9+5DEA 

E4CB+12EA 



DN 
DN 

DN 



EQU 

SET 

IF 

REPT 

HEADER 

SET 

HEADER 

SET 

IF 

HEADER 

SET 

END IF 

ENDM 

REPT 

HEADER 

SET 

ENDM 

ELSE 

REPT 

HEADER 

SET 

ENDM 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

REPT 

HEADER 

SET 

HEADER 

SET 

IF 

HEADER 

SET 

END IF 



$ 



FIRST 

MAXHD 

%DN,DPBHD1 

DN+I 

%DN,DPBHD2 

DN+1 

(M26 NE 0) 

%DN,DPBHD3 

DN+1 



MAXFLOP 

%DN,0 

DN+1 



MAXFLOP 

%DN,0 

DN+1 



0,0,0 

DIRBUF 



CSV0 

ALV0 



0,0,0 

DIRBUF 



CSV! 

ALVl 

MAXHD 

%DN,DPBHD1 

DN+1 

%DN, DPBHD2 

DN+1 

(M26 NE 0) OR 

%DN,DPBHD3 

DN+1 



.•GENERATE HARD DISK DPH'S 
; BY FLOPPY DPH'S 



FOLLOWED 



OR (M20 NE 0) 



; GENERATE FLOPPY DPH'S FOLLOWED BY 
; HARD DISK DPH'S 



TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



{M20 NE 0) 



cp/m macro ASSEM 2.0 



#041 



'** Cbios For CP/M Ver. 2.2 *** 





ENDM 




E4CD+0000 


DW 





E4CF+0000000000 


DW 


0,0,0 


E4D5+07E9 


DW 


DIRBUF 


E4D7+7DE4 


DW 


DPBHDl 


E4D9+94EB 


DW 


CSV2 


E4DB+9DEA 


DW 


ALV2 


E4DD+0000 


DW 





E4DF+0000000000 


DW 


0,0,0 


E4E5+07E9 


DW 


DIRBUF 


E4E7+8DE4 


DW 


DPBHD2 


E4E9+8BEC 


DW 


CSV3 


E4EB+94EB 


DW 


ALV3 


E4ED+0000 


DW 





E4EF+0000000000 


DW 


0,0,0 


E4F5+07E9 


DW 


DIRBUF 


E4F7+9DE4 


DW 


DPBHD3 


E4F9+82ED 


DW 


CSV4 


E4FB+8BEC 


DW 

END IF 


ALV4 



TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

if**************************************************************** 



E4FD 


0000 


CPMSEC 


DW 





E4FF 


00 


CPMDRV 


DB 





E500 


00 


CPMTRK 


DB 





E501 


0000 


TRUESEC 


DW 





E503 


00 


BUFDRV 


DB 





E504 


00 


BUFTRK 


DB 





E505 


0000 


BUFSEC 


DW 





E507 


= 


BUFFER 


EQU 


$ 



CP/M SECTOR # 

CP/M DRIVE # 

CP/M TRACK # 

DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

DRIVE THAT BUFFER BELONGS TO 

TRACK THAT BUFFER BELONGS TO 

SECTOR THAT BUFFER BELONGS TO 



************************** *****************************1c1,1i1c1HHciii,ic 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

********************** *******************************1e*******ie*** 



E507 0D0A0A 



HEXNUM 


MACRO 


NUM 




IF 


(NUM/16) > 9 




DB 


(NUM/16 AND 0FH) + 'A* - 10 




ELSE 






DB 


(NUM/16 AND 0FH) + '0' 




END IF 






IF 


(NUM AND 0FH) > 9 




DB 


(NUM AND 0FH) + 'A* - 10 




ELSE 






DB 


(NUM AND 0FH) + '0* 




END IF 






ENDM 




PROMPT 


DB 


ACR,ALF,ALF 



cp/m macro ASSEM 2.0 



#042 



*** Cbios For CP/M Ver . 2.2 *** 



E50A 


4D6F72726F 


DB 


'Morrow Designs * 


E519 


36 


DB 


•0'+MSIZE/l0 


E51A 


30 


DB 


•0'+(MSIZE MOD 10) 


E51B 


4B2043502F 


DB 


'K CP/M • 


E522 


32 


DB 


CPMREV/l0+'0' 


E523 


2E 


DB 


t 1 

« 


E524 


32 


DB 


(CPMREV MOD 10)+ '0' 


E525 


2C20436269 


DB 


' , Cbios rev ' 


E531 


322E 


DB 


REVNUM/10+'0' , ' . • 


E533 


38 


DB 


REVNUM MOD 10+'0' 






IF 


MAXHD NE 


E534 


2E 


DB 


t 1 

• 


E535 


32 


DB 


MREV/l0+'0' 


E536 


36 


DB 


MREV MOD 10+ '0' 






IF 


(M10 OR M20) AND SDELAY 






DB 


'M* 






ENDIF 








IF 


(M10 OR M20) AND NOT SD 






DB 


.p, 






ENDIF 








ENDIF 




E537 


0D0A 


DB 


ACR, ALF 


E539 


466F7220 


DB 


'For ' 






IF 


MAXFLOP NE 


E53D 


6120446973 


DB 


•a Disk Jockey 2D @ ' 






HEXNUM 


% (ORIGIN/256) 


E550+46 


DB 


(240/16 AND 0FH) + 'A' ■ 


E551+30 


DB 


(240 AND 0FH) + '0' 


E552 


30304820 


DB 
ENDIF 


'00H • 






IF 


(MAXHD NE 0) AND (MAXFL( 


E556 


616E6420 


DB 
ENDIF 


'and ' 






IF 


MAXHD NE 






IF 


MAXHD EQ 1 


E55A 


616E20 


DB 
ENDIF 


•an ' 






IF 


MAXHD EQ 2 






DB 


•two ' 






ENDIF 








IF 


MAXHD EQ 3 






DB 


'three • 






ENDIF 








IF 


MAXHD EQ 4 






DB 


•four ' 






ENDIF 








IF 


MREV EQ 10 






DB 


'M10 ' 




•'■■,/? :: . • 


ENDIF 


■, . . , , ■ • 






IF 


MREV EQ 20 






DB 


'M20 • 






ENDIF 


■■i. ',' 






IF 


MREV EQ 26 



;CP/M MEMORY SIZE 
;CP/M VERSION NUMBER 



rCBIOS REVISION NUMBER 



- 10 



CP/M MACRO ASSEM 2.0 
E55D 4D323620 
E561 6861725420 

E56A 204020 

E56D+35 
E56E+30 
E56F 482E 

E571 0D0A 

E573 0D0A 

E575 2020202020 

E58F 0D0A 

E591 2020202020 

E5AD 0D0A 

E5AF 2020202020 

E5CA 0D0A 

E5CC 00 



#043 



*** Cbios For CP/M Ver. 2.2 *** 



DB 


•M26 • 


END IF 




DB 


'hard disk' 


IF 


MAXHD NE 1 


DB 


's' 


END IF 




DB 


• @ ' 


HEXNUM 


%HDORG 


DB 


(80/16 AND 0FH) + '0' 


DB 


(80 AND 0FH) + '0' 


DB 


'H.' 


END IF 




DB 


ACR,ALF 


DB 


ACR,ALF 


DB 


THE W6G0/K6HHD LIST' 


DB 


ACR,ALF 


DB 


' Electronics Enterprises' 


DB 


ACR,ALF 


DB 


' Rio Linda, California* 


DB 


AGR,ALF 


DB 






It**************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 



;GET A CHARACTER OF THE MESSAGE 

;BUMP TEXT POINTER 

;TEST FOR END 

y RETURN IF DONE 

;SAVE POINTER TO TEXT 

; OUTPUT CHARACTER IN C 

; OUTPUT THE CHARACTER 

y RESTORE THE POINTER 

y CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



E5CD 7E 


MESSAGE MOV 


A,M 


E5CE 23 


I NX 


H 


E5CF A7 


ANA 


A 


E5D0 C8 


RZ 




ESDI E5 


PUSH 


H 


E5D2 4F 


MOV 


C,A 


E5D3 CD0CDD 


CALL 


COUT 


E5D6 El 


POP 


H 


E5D7 C3CDE5 


JMP 


MESSAGE 



E5DA 310001 

E5DD 3EC0 
E5DF 320300 
E5E2 CD2DDE 

E5E5 2107E5 
E5E8 CDCDE5 
E5EB AF 
E5EC 32FFE4 



CBOOT 



LXI 


SP, TPA 


MVI 


A,INTIOBY 


STA 


lOBYTE 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


•.A , . ■', .: 


STA 


CPMDRV 



ySET UP STACK 



y INITIALIZE THE TERMINAL 

yPREP FOR SENDING SIGNON MESSAGE 
ySEND THE PROMPT 
y SELECT DISK A 



cp/m macro ASSEM 2.0 
E5EF 320400 



E5F2 2103DD 
E5F5 2201DD 
E5F8 C358DE 

E5FB 



E707 



E907 



0000 # 



#044 

STA 

IF 

STA 

ENDIF 

LXI 

SHLD 

JMP 

DS 





IF 


MAXFLOP NE 




DS 


512 




ENDIF 






IF 


(MAXFLOP NE 


DIRBUF 


DS 
ENDIF 


123 


ALLOC 


MACRO 


ND,AL,CS 


ALVScND 


DS 


AL 


CSV&ND 


DS 
ENDM 


CS 



*** Chios For CP/M Ver. 2.2 *** 

CDISK 

(MAXFLOP NE 0) AND FIRST 
FLOPFLG 

H,BIOS+3 

BIOS+1 

GOCPM 

512-($-BUFFER) yMAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 

; ADDITIONAL SPACE FOR FLOPPIES IK SECTORS 

OR (MAXHD NE 0) 
; DIRECTORY BUFFER 



DN 



SET 











IF 


NOT FIRST 






REPT 


MAXFLOP 






ALLOC 


%DN,75,64 




DN 


SET 
ENDM 


DN+1 


E987 + 


ALV0 


DS 


75 


E9D2+ 


CSV0 


DS 


64 


EA12+ 


ALVl 


DS 


75 


EA5D+ 


CSVl 


DS 


64 






REPT 


MAXHD 






IF 


M26 NE 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M10 NE 






ALLOC 


%DN, 159,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 161,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M20 NE 


. t, ■■■■;: 


', .'■' •' • 


ALLOC 


%DN* 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 -. 






ALLOC 


%DN, 129,0 



cp/m macro ASSEM 2.0 



#045 



*** Cbios For CP/M Ver. 2.2 *** 





DN 


SET 


DN+ 






ENDIF 








ENDM 




EA9D+ 


ALV2 


DS 


247 


EB94+ 


CSV2 


DS 





EB94+ 


ALV3 


DS 


247 


EC8B+ 


CSV3 


DS 





EC8B+ 


ALV4 


DS 


247 


ED82+ 


CSV4 


DS 






ELSE 



ED82 





REPT 


MAXHD 




IF 


M26 NE 




ALLOC 


%DN, 247,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 247,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 247,0 


DN 


SET 
ENDIF 


DN+I 




IF 


M10 NE 




ALLOC 


%DN, 159,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 161,0 


DN 


SET 
ENDIF 


DN+1 




IF 


M20 NE 




ALLOC 


%DN, 252,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 252,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 129,0 


DN 


SET 

ENDIF 

ENDM 


DN+1 




REPT 


MAXFLOP 




ALLOC 


%DN, 75,64 


DN 


SET 
ENDM 
ENDIF 
END 


DN+1 



CP/M MACRO ASSEM 2.0 



#046 



*** Cbios For CP/M Ver. 2.2 *** 



0006 


AAGK 


E22F 


ACCOK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


E987 


ALV0 


EA12 


ALVl 


EA9D 


ALV2 


EB94 


ALV3 


EC8B 


ALV4 


DEAB 


AUTOFLG 


CF00 


BDOS 


A000 


BIAS 


DD00 


BIOS 


E503 


BUFDRV 


0080 


BUFF 


E507 


BUFFER 


E505 


BUFSEC 


E504 


BUFTRK 


E10D 


BUFWRTN 


E323 


BUILD 


E5DA 


CBOOT 


C700 


CCP 


0004 


CDISK 


DE08 


CICRT 


DE08 


CIPTR 


DD88 


CITBLE 


F003 


CITTY 


DDF3 


CIUCl 


DE08 


CIURl 


DE08 


CIUR2 


DEA3 


CT.DBOT 


DE8E 


CLDCMND 


001A 


CLEAR 


DE3B 


COCRT 


DEAC 


COLDBEG 


DEBA 


COLDEND 


DDC9 


COLPT 


0004 


COMPLT 


DD42 


CONIN 


DD48 


CONINl 


DD57 


CONOUT 


DD36 


CONST 


DDC9 


COPTP 


DE46 


COPTR 


DE4D 


COPTRl 


DD90 


COTBLE 


F006 


COTTY 


DDD4 


COULl 


DDF2 


COUNT 


DDC9 


COUPl 


DDC9 


C0UP2 


DD0C 


COUT 


E0ED 


CPMDMA 


E4FF 


CPMDRV 


0016 


CPMREV 


E4FD 


CPMSEC 


E500 


CPMTRK 


DEIC 


CSCRT 


DEIC 


CSPTR 


DD3C 


CSREADR 


DDB8 


CSRTBLE 


DDB0 


CSTBLE 


DE14 


CSTTY 


DDFF 


CSUCl 


DEIC 


CSURl 


DEIC 


CSUR2 


E9D2 


CSV0 


EA5D 


CSVl 


EB94 


CSV2 


EC8B 


CSV3 


ED82 


CSV4 


DEAA 


CWFLG 


0008 


DBLSID 


E066 


DCRC 


ElEl 


DECIDE 


EIDD 


DECIDGO 


E20F 


DELAY 


E212 


DELOOP 


E907 


DIRBUF 


E0B9 


DIVDONE 


E068 


DIVLOG 


E06A 


DIVLOGX 


E0AB 


DIVLOOP 


F400 


DJBOOT 


F003 


DJCIN 


F006 


DJCOUT 


F42D 


DJDEN 


F412 


DJDMA 


DD33 


DJDRV 


F42A 


DJERR 


F409 


DJHOME 


F400 


DJRAM 


F415 


DJREAD 


F40F 


DJSEC 


F41B 


DJSEL 


F430 


DJSIDE 


F427 


DJSTAT 


F40C 


DJTRK 


F021 


DJTSTAT 


F418 


DJWRITE 


DF4A 


DONOP 


E46D 


DP1024D 


E42D 


DP1024S 


E43D 


DPB128D 


E3FD 


DPB128S 


E44D 


DPB256D 


E40D 


DPB256S 


E45D 


DPB512D 


E41D 


DPB512S 


E4AD 


DPBASE 


E47D 


DPBHDl 


E48D 


DPBHD2 


E49D 


DPBHD3 


E32E 


DRIVES 


E001 


DRVHD 


E318 


DRVPTR 


0020 


DRVRDY 


0007 


DSKCLK 


E0C8 


DTSLOP 


0005 


ENTRY 


E19E 


FILL 


0000 


FIRST 


DFAA 


FLOPOK 


E10C 


FLUSH 


E1C6 


FREAD 


E071 


GETDPB 


E262 


GETSPT 


DE58 


GOCPM 


E27F 


HDADD 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


E32A 


HDDISK 


E242 


HDDMA 


E1E9 


HDDRV 


0052 


HDFUNC 


EIFA 


HDHOME 


0050 


HDORG 


E2E3 


HDPREP 


E265 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


E250 


HDSEC 


E308 


HDSECTR 


E247 


HDSIDE 


0020 


HDSPT 


0050 


HDSTAT 


E21B 


HDTRK 


E229 


HDTRK2 


E29A 


HDWRITE 


E324 


HEAD 


DF51 


HOME 


0000 


IDBUFF 


0040 


INDEX 


E034 


INDXl 


E03B 


INDX2 


00C0 


INTIOBY 


E0FA 


INTO 


0003 


lOBYTE 


0008 


ISBUFF 


DD77 


LIST 


DD7A 


LISTl 


DD82 


LISTST 


0003 


LOGDSK 


DE25 


LSLPT 


DDC0 


LSTBLE 


DD98 


LTBLE 


0000 


M10 


0000 


M20 


0001 


M26 


0002 


MAXFLOP 


0001 


MAXHD 


00F7 


MDIR 


E5CD 


MESSAGE 


E0D7 


MOVE 


E1D2 


MOVER 


E1D4 


MOVLOP 


001A 


MREV 


003C 


MSIZE 


DFIE 


NEWDMA 


DEFF 


NEWSEC 


E12D 


NOADJST 


DF16 


NOWRAP 


00PB 


NSTEP 


00FC 


NULL 


4A00 


OFFSETC 


0002 


OPDONE 


F000 


ORIGIN 


E0F5 


OUTOF 


DD72 


PNCHl 


E119 


PREP 


E2C9 


PROCESS 


E507 


PROMPT 


0004 


PSTEP 


DDA0 


PTBLE 


DD6C 


PUNCH 


DDE9 


PWAIT 


E0F0 


RDWR 


DD62 


READER 


E099 


READ 


DD65 


READERA 


DD68 


READRl 


DE2A 


READY 


E09D 


REDWRT 


000A 


RETRIES 


0002 


RETRY 


E122 


RETRYLP 


E17F 


RETRYOP 


001C 


REVNUM 


0001 


RSECT 


DDA8 


RTBLE 


E285 


RTLOOP 


0005 


SCENBL 


0001 


SDELAY 


0200 


SECT.EN 


E0DC 


SECPSEC 


E09E 


SECSIZ 


DF58 


SECT RAN 


DD4C 


SELDEV 


DF4B 


SETDMA 


DF93 


SETDRV 


E049 


SETDRVl 


DF45 


SETSEC 


E210 


SETTLE 


DF53 


SETTRK 


DF6E 


SIDE A 


DFEF 


SIDEOK 


DF71 


SIDEONE 


DF77 


SIDETWO 


E233 


SLOOP 


DEI 7 


STAT 


EIFP 


STEPO 


DFFF 


SUBFP 


E01D 


TDELAY 


DE2D 


TINIT 


0001 


TKZERO 


0008 


TMOUT 


0100 


TPA 


DF60 


TRANFP 


DF8F 


TRANHD 


E501 


TRUESEC 


DEBB 


WARMBEG 


DEBB 


WARMEND 


DEFE 


WARMLOD 


DF32 


WARMRD 


DD03 


WBOOTE 


DEBC 


WBOOT 


0000 


WBOT 


000F 


WENABL 


0010 


WFAULT 


DEC0 


WFLG 


000B 


WRESET 


E092 


WRITE 


E104 


WRITTYP 


DF35 


WjRMREA^ 


• E24,8 


WSDPNE 


0005 


WSECT 


E2A6 


WTLOOP 


E3BC 


XLT124 


E32F 


XLT128 


E34A 


XLT256 


E37F 


XLT512 


E08A 


XLTS 


E307 


ZKEY 


E062 


ZRET 



















